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ABSTRACT 


This report describes the LISP system implemented at BBN on the 
SDS 944 Computer. This LISP is an upward compatible extension of 
LISP 1.5 for the IBM 7090, with a number of new features which 
make it work well as an on-line language. These new features 
include tracing, and conditional breakpoints in functions for 
debugging and a sophisticated LISP oriented editor. The BBN 94g 
LISP SYSTEM has a large memory store (approximately 50,000 free 
words) utilizing special paging techniques for a drum to provide 
reasonable computation times. The system includes both an 
interpreter, a fully compatible compiler, and an assembly language 
facility for inserting machine code subroutines. 
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SECTION I 
INTRODUCTION 


LISP is a highly sophisticated list-processing language which is 
being used extensively in artificial intelligence research. This 
document describes the BBN 948 LIC? system, which has a number of 
unique features which make it a very good on-line interactive sys- 
tem with a large drum memory. Ideally, a LISP system would have a 
very fast, random-access memory. However, magnetic core memory 
(the only large scale random-access memory available) 18 very ex- 
pensive relative to serial memory devices such as magnetic drums 
or discs. Since average access time to a word on a drum or disc 
is many times slower than access to a word in a core memory, using 
a drum as a simple extension of core memory would reduce consider- 
ably the operating speed of such a system. We have developed spec- 
ial paging technigques which allow utilization of a drum for stor- 
age with a much sraller penalty in speed. These techniques are 
described in detail in Bobrow and Murphy's "Structure of LISP Us- 
ing Two-Level Storage," (Comm. ACM, March :967). 


Although we have tried to be as clear and complete as possible, 
this document is not designed to be an introduction to LISP. 
Therefore, some parts may be clear only to people who have had 
some experience with other LISP systems. A good introduction to 
LISP is Clark Weisman, "LISP 1.5 Primer" (Dickenson Press 1967). 
Although not completely accurate with respect to the BBN 948 LISP 
system, the differences are small enough to be mastered by use of 
this manualand on-line interaction. Other important references, 
published by the MIT Press, are John McCarthy, LISP 1.5 Program- 
mer's Manual and Berkeley and Bobrow (editors), The Programming 


Language LISP, Its Operation and Applications. 
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SECTION II 
USING THE LISP SUBSYSTEM ON THE 949 


In order to use LISP, you must have in your files a sysout file 
of the basic system. This basic LISP system file, usually called 
LISP, contains a binary image of LISP after it has been initial- 
ized and loaded with the library. You do not need a copy of the 
library if you have this file. 


Call LISP by typing LIS; the system will respond P; then type .; 
when LISP finally responds READY, and types *, you are talking to 
the LISP supervisor, usually called evalquote. Then type the 
following: 


SYSIN (LISP) 


After typing the above, the system will find and load the basic 
system binary file of this name from tape. When it has read it 
in successfully, it will respond with a T, and the LISP super- 
visor will again type +, indicating that it is listening to you 
again. 


When typing in to evalquote, typing a control-Q will clear the 
input line buffer erasing the entire line up to the last carriage 
return. Typing control-A erases the last character typed in, 
echoing a * and the erased character; it will not go beyond the 
last carriage return. Pressing the RUBOUT button while in the 
middle of a typein to the LISP executive, evalquote, will clear 
the entire read buffer of everything back to the last +, and 

LISP will again type +. 
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The LISP read program counts parentheses, and echoes а carriage 
return when ¿`l left and right parentneses balance. Left and 
right brackets, "[" and "j", are super-parentneses. A right 
bracket will close all open left parentheses up to the last open 
left bracket; if there is no open left bracket, it will close the 
entire expression. For example: 


PRINT ((THIS IS A LISP SYSTEM FROM BBN (FOR THE 940) 


will print the expression shown with enough right parentheses to 
close all lists; that is, the "]" is equivalent, in this case, to 
three right parentheses. Unpaired right parentheses are read as 
NIL. 


To exit from LISF, type: 
LOGOUT () 


One can then execute any system commands, except those which 
Start another subsysten, and continue LISP using the system 
CONTINUE command. This will revive the LISP system exactly as 
you left it, except that all open files will be closed, and you 
will be typing to evalquote, whether or not you executed the 
logout at the top level. 
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SECTION III 


DATA TYPES AND THE ORGANIZATIO! OF VIRTUAL MEMORY 


LISP operates in a 21-016 address space, though only thac portion 
currently in use actually exists on the drum. A portion of the 
address space above that actually allocated for structures is 

usec for representation cf small integers, as described below. 

All data storage is contained within this virtual memory, 
including literal atoms, list structure, arrays and compiled code, 
large integers, floating point numbers, and pushdown list storage. 


This virtual memory is divided into pages of 256 words. References 


to the virtual storage are made via an in-core map which supplies 
the address of the required page if it is in core, or traps to a 
supervisory routine if the page is not in core. This drum super- 
visory routine selects an in-core page, writes it back on the 
drum if it nas been changed, and reads the required page from the 
drum. Closed subroutine references to an in-core word through 
the map take approximately 40 microseconds. A reference to a 
word not in core, whicr must be obtained from the drum, takes up 
to 33 milliseconds, the drum maximum access time. It takes twice 
as long 1f a page must be written out on the drum before the 
referenced page can be read in. 


Type Determination of Pointers 


The virtual memory is divided into a number of areas as shown in 
Fig. 1. As can be seen from this map of storage, simple arith- 
metic cn the address of a pointer will determine its type. ‘Ye 
chose to allocate storage rather than provide in-core descrip- 
tors of storage areas, because they would take up valuible in-core 
space. 
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Literal Atoms 


A literal atom is constructed from any string of characters not 
interpretab!^ 25 an integer or a floating point number. When а 
string of characters representing a literal atom is read in, a 
search is made to determine if an atcm with the same print-name 
has been seen before. If so, a pointer to that atom is used for 
the current atom. If not, a new atom is created. Thus, as in all 
LISP systems, a literal atom has a unique representation. 


Four cells (942 words) are associated with each literal atom. 
These cells contain pointers to the print-name of the atom, the 
function which it identifies, its top level or global value, and 
its ргсрегбу list. Since pointers to atoms occur іп only one 
part of the address space, one can tell from a pointer (address) 
whether or not it is pointing to a literal atom. 


Instead of having the four cells associated with each atom on the 
same page, each is put in a separate space in a position compu- 
table from the pointer to the atom. 


Separating value cells and function cells, for example, is useful 
because most users wiil not use the same name for a global. 
variable as they wiil for a function. Therefore, if the four 
cells were brought in whenever any one мгз asked Гог, it is 

likely that the other three celis would never be referenced. Yet, 
they use up room in core which could be used for other storage. 
Simileriy, the ргіпі,-пате pointers associated with atoms are 
needed during input and output, but rarely during a computation. 
Therefore, during computation these cells are never in core. 


Саг Of а literal a.c. usually contains the top level binding of 
vae atom. If the atom has not yet been bound, the value cell 
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contains the special atom NOBIND. (др ог the atom is а pointer 

to the atom property list, initially NIL. The PNAME cell contains 
a pointer to a packed character table which contains the print. 
name of the atom. The function cell contains NII: until a function 
by that name is defined. One implication not immediately obvious 
is that car[NIL] = NIL, and cdr[NIL] = NIL. These latter two 
values are a significant convenience in programming. 


Numerical Atoms 


Integers 


In LISP, most numerical atoms (numbers) do now nave a unique re- 
presentation; that is, a number of different pointers may reference 
numbers with the same value. This implies that for comparison of 
numbers, or for arithmetic operztions, the values of the numbers 
musc be obtained. Тһе values of floating point nambers and large 
integers are stored in a "full word" space. Pointers to these 
values are used ín list structure. 


However, we utilize the fact that not all addresses in the virtual 
address space of the drum can legitimately appear as pointers in 
list structure. These "illegal" pointers are therefore used in 
the context of list structure to represent "small" integers 
directly, offset by a constant. 


The input format for an integer is any string of digivs, option- 
ally preceded by a "+" or "-", Integers must have magnitude less 
than 223. "Small" integers are those of magnitude below approxi- 


18 


mately 2 (an assembly parameter). A string of digits followed 


by a "Q" will be interpreted as an cctal number. 
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Floating Point Numbers 


Floating point numbers and operations are available in BBN LISP. 
They are stored in two contiguous 24 bit words in standard 940 
format, in full word space. When creating an atom with read, 
ratom or pack, LISP will recognize as a floating point number a 
string of digits containing a decimal point. The letter "E" 
(exponent of 10; 1.6. ууЕхх=уу * 10**) will also serve to detig- 
nate a flcating point number if preceded and followed by one or 
more digits. The following are legal floating point input strings. 


5. 5.0 5Е0 5E-3 5.2646 .3 


The floating point/string conversion, and the floating point 
arithmetic are performed by the POP's and BRS's available in the 
948 system. Additional inrormation concerning conversion and 
precision is available from the system documentation of these 
routines. 


The atom printing routine (used by prinl, prin2, prinj, unpack) 
will call the system conversion routine when it encounters a 


floating point datum. The output format is controlled by the 
function fitfmt(n] described later. 
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Arrays 


Arrays in BBN LISP have the following format. 


Header Block 


Non-Pointer Area 


Pointer Area 


Relocation Information 


Typical Array 


The HEADER PLOCK 1s four celis long and contains: 


Cell: Я Length of entire array. 


1 Relative address of first word of protected 
pointers. 


2 Relative address of first word of relocation 
information. 


3 f 1f an integer or symbolic array. 
1 1f a floating point array. 
Used as temporary storage in compliled code. 
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An array may contain both pointer and non-pointer data, separated 
as shown. 


Relocation information contains the relative addresses of cells 
in the array which are to be relocated when the array is used as 


Pointer data is assumed to be one of the standard LISP 
types, and the pointer data cells in all arrays are used as base 
cells for tracing during garbage collection. 
data, beginning in the fifth cell of the array, is of unrestricted 


type, and w111 not be used as trace pointers during garbage 
collection. 


a ecmpiled function, and is placed in core memory. 


Exampies: 


1. 


Compiled code. 


a. 


b. 


Machine instructions and unboxed numeric 
literals are in the non-pointer area. 

Other literals and variable name pointers are 
in the pointer area. 

Relocation information area addresses all 
machine instructions whose address is within 
the same program, e.g., BRANCH instructions. 


Array of lists. 
All data would be in the pointer area; the other 


areas would be of length f. 


3. Array of unboxed numbers. 


All data would be in the non-pointer area; tne 
other areas would be of length 4. 
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List Structure 


List Structure is created in list space as shown in the memory 
map. Lists can contain pointers to all data types. As can be 
Seen from the map, list space and array space grow toward each 
other. The total space available is an assembly parameter. 
Currently the space available is 96K (К=1024) SDS 940 24 bit 
words, which if used all for list storage would provide 48K words 
of free storage. 
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SECTION IV 


FUNCTION TYPES > 


There are basically eight function types in the BBN LISP System. Be 
These eight types are characterized by three dichotomies. A 
function may independently have: 


l. its arguments evaluated or unevaluated, 

2. а fixed number of arguments ог an indefinite number of 
arguments. 

3. be defined by a LISP expression, or by machine code 
(which may be permanent system code, or compiled 
machine code). 


Expressions used to define functions must start with either 
LAMBDA, or NLAMBDA; indicating that the arguments of this func- 
tion are to be evaluated, or not evaluated, respectively. 
Following the LAMBDA ог NLAMBDA may be any atom (except NIL) or 
a list of atoms (possibly empty). If there is a list of atoms, 
each atom in the list is the rame of an argument for the function 
defined by the expression. Arguments for the function will be 
evaluated or unevaluated, as dictated by LAMBDA or NLAMBDA, and 

red with these argument names. If an atom follows the LAMBDA 
or NLAMBDA, this function has an indefinite number of arguments. 
If it 15 an NLAMBDA expression, then the atom is paired to the 
list of arguments (unevaluated) of the function; that is, to cdr 
of the form in which this function name was car. 


If a LAMBDA is f ^lowed by ап atom, each of 1ts arguments, n, will 
be evaluated in urn and placed on the parameter push down list. 
The atom following the LAMBDA is bound to the number of arguments 
which have been evaluated. A built-in function arg[m] returns 
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the value of the mth argument of this function from the push 
down list. For поп or mgo, it is undefined. 


Functions defined by expressions can be compiled by the LISP com- 
piler, as described in the section on the compiler and lap. They 
may also be written directly in machine code and the LAP assembly 
language if the lap conventions are followed to allow linkage to 
LISP functions. Functions created both by the ccmpiler and lap 
are referred to as compiled functions. Built-in system coded 
functions are called subroutines. To determine the type of any 
function fn, you can use the function fntyp[fn]. The value of 
fntyp is one of the following 12 types: 


EXPR CEXPR SUBR 

EXPR* CEXPR* SUBR* 
FEXPR CFEXPR FSUBR 
FEXPR* CFEXPR* FSUBR* 


The types in the first column are 311 defined by expressions. 

The * suffix indicates an indefinite number of arguments (i.e. an 
atom following the LAMBDA or NLAMBDA). Functions of types in the 
first two rows evaluate their arguments. The types in the second 
column are compiled versions of the types in the first column, as 
indicated by the prefix C. In the third column are the parallel 
types for built-in subroutines. The prefix F again indicates no 
evaluation of arguments. Thus, for example, a CFEXPR* is a 
compiled form of an NLAMBDA expression with an atom foliowing 

the NLAMBDA. 
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A standard feature of the BBN LISP system is that no error 

occurs 17 a function is called with too many or too few arguments. 
If a function is called with too many arguments, the extra argu- 
ments are evaluated but ignored. If a function is called with 
too few arguments, the unsupplied ones will be delivered as NIL. 
This applies to both built-in and defined functions. 


There 1s a function progn of an arbitrary number of arguments 
which evaluates the arguments in order and returns tre value of 
the last (1.е., it resembles and is an extension of prog2). 


The conditional expression has been generalized so that instead 
of douhlets it accepts n*l-tuplets which will be interpreted in 
the following manner: 


(COND 
(Pl Ell E12 E13) 
(P2 E21 E22) 
(P3) 
(Ph E41)) 


will be taken as equivalent to (in LISP 1.5): 


(COND 
(Pl (PRCGN Ell El? E123" 
(P2 (PROGN E21 E22)) 
(P3 P3) 
(Р E41) 
(T NIL) ) 


This is not exactly true, but only because P3 is not evaluated 
a second time, if the value is needed in the third item in the 


ee 
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second conditional expression. Thus, a list in a cond with only 
& predicate and no following expressions causes the value of the 
predicate itself t. be returned. Note also that NIL 1s returned 
if all the predicaves have value NIL. No error is invoked. 


LAMBDA and NLAMBDA expressions also have implicit progn's; thus 
for example 


(LAMBDA (Vi V2) (Fl V1) (F2 V2) NIL) 
is interpreted as 
(LAMBDA (Vi V2) (PROGN (F1 V1) (F2 V2) NIL)) 
The value of the last expression following LAMBDA (or NLAMBDA) 


is returned as the value of the expression. In this example, 
the function wouid always return NIL. 


SECTION V 2 


PRIMITIVE FUNCTIONS AND PHKEDICATES 
Primitive Functions 


car[ x] car gives the first element of a 
list x, or the left element of a 
dotted pair x. Nominally unde- 
fined for literal atoms, 1t 
usually gives the top level 
binding (value) of a literal 
atom x. For the usually undefined 
case of a number, its value is 
the number itself. 


edr[x] саг gives the tail of a list (all 
but tne first element). This is 
also the right member of a dotted 
pair. If x is a literal atom, 
edr[x] gives the property list 
of x. Property lists are usually 
NIL unless modified by the user. 
If x 1s a number, cdr returns NIL. 


сааг[х] = car[car[x]j All 30 combinations of nested 
cars and edrs up to 4 deep are 

сааг[х] = саг[сдг[х]] included in the system. Levels 1, 
2 and 3 are subroutines; ! is 

eddddr[x] = compiled. All are compiled open 


[сагі саг (сасГсдгс(х1111 


by the compiler. 
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cons(x;y] 


cons[x;y] is placed 


cons constructs a dotted pair of 
x and y. If y is a list, x be- 
comes the first element of that 
list. To minimize drum accesses 
the following algorithm is used 
for finding a page on which to 
put the constructed LISP word. 


1) on the page with y if y is a list and there is room; 


otherwise 


2) on the page with x if x is a last and there is room; 


otherwise 


3) on the same page as the last cons if there is room; 


otherwise 


4) on a page in core if one is available with a specified 
minimum of storage; otherwise 

5; on any page with a specified minimum of storage. 
The specified minimum is presently 20 LISP words in 


both cases. 


The user may effect the operation of cons with the following 


function: 


conspage[x] 


causes the page cn which x re- 
sides to be used for alternative 
3 above instead of the result of 
the previous cors. If x 1s an 
atom, alternative 4 or 5 will 

be tcken. 
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consc. „ЛЕГ ] 


грјаса (х;у] 


rplaca[x;y] 


quote[x] 


Returns the number ог conses 


since LISP started up. 


This very dangerous SUBR places 
in the decrement of the cell 
pointed to оу x the pointer y. iss 
Thus it changes the internal list 
Sv.'ucture physically, as opposed 

to cons which creates a new list 

element. This is the only way 

to get a circular list inside cf 

LISP; that is by placing a 

pointer to the beginning of a 

list in a spot at the end of the 

ilst. Using this function care- 

lessly is оле of the few ways to 

realay clobber the system. The 

value of rplacd is x. 


This SUBR is simi . to rplacd, 
but it replaces the address 
pointer of x with y. The „ате 
caveats which applied to using 
rplacd apply to rplaca. The 
value of rplaca is x. Rplaca 
and rplacd of NIL are illegal. 


This is a function that prevents 
its argument from being evaluated. 
Its value is x itself. 
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cond( x | The argument for cond is a list. 
Each element of the list is it- 
self a list containing п > 1 
items: the first is an expres.ion 
whose value may be false or true 
(that is NIL, or anything which 
is not NIL); the rest may be any 
expressions. This 15 the condi- 
tional expressior in the LISP 
system. The meaning of it is: 
if the first element of the first 
list is true (not NIL), then the 
following expressions are evalu- 
ated. The value of the condi- 
tional is the value of the iast 
expression in this sublist. If 
there is only one element in the 
n-tuplet, then the value of the 
conditional is the value of this 
element if it is not NIL. 


This value of a conditional agrees 
with that of LISP 1.5 for pairs 

of items, but allows additional 
flexibility. If the first ele- 
ment of the first list is false 
(=NIL), then the second sublist 

is considered, etc. Thus, the 


arguments are searched until a 
first element o? a list is found 
which is not NIL. If none are 
found, the value of the conditionai 
expression is NIL. 
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selectq[x:y4 iy,;.. iy, ;2) 


This very useful function is used 


to select a sequence of instruc- xd 
tions based on the value of its = 
first argument x. Each of the - 
y, is a list of the form i 


(в, 614 Sage ер) is 


where s, is the selection key. 


If s, 1s an atom the value of x 
is tested to see if it is eq vo 
8, (not evaluated). If so, the 


expressions е,,,...е 1 are eval- 


ci 


uated in sequence, and the value 
of the selectq is the value of 
the last expression evaluated, 


1%6% eki’ 


If $4 is a iist, and if any ele- 
ment of s, is eq to the value of 
х, then ej, to ey, are evaluated 
in turn as above. 


If y, 15 not selected in one of 
the two ways described then 
1314] is tested, etc. until all 
the y's have been tested. If 
none is selected, the value cf 
the selectq is the value of z. 
z must be present. 
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progl[x;;X5;...;x ] 


ргов2[х;уј 


рговп[х;у;...;2] 


-- 


Ап example of the form of a 
selectg 18: 
(SELECTQ (CAR X) 
(Q (PRINT FOO) (FIE X)) 
((A E I O U) (VOWEL X)) 
(Y (TRY-AGAIN X)) 
(COND((NULL X)NIL) 
(T (QUOTE STOP)))) 
which has 3 cases, Q,(A E I O U) 
and Y, and a default condition 
which is a cond. 


Selectq compiles open, and is 
therefore very fast; however it 
will not work for lists, large 
integers or floating point num- 
bers since it uses a 2! bit open 
compare (an open eq). 


This function evaluates its 
arguments in order, that is, Xi 
then x, etc. It returns the 
value of its first argument x,. 


Evaluates x, then y and returns 


у. 


progn evaluates each of its 
arguments in sequence, and re- 
turns the value of its last 
argument as its value. It is an 
extension cf proge. 


сат 


prog[args;e, ;e,;...£,] This feature allows the user to 
write an ALGUL-like program con- 
taining LISP statements to be 
executed and is identical to the 
prog in LISP 1.5. The first 


argument is a list of program 


variables. Тһе rest is a se- ОЛ 
quence of (non-atomic) state- 
ments (expressions), and atomic 


symbols used as labels fcr trans- 
fer points. The value of a prog 
is determined by the function 


return. If no return is exe- 
cuted, the value of the prog is 
not guaranteed, but will not give 
an error. 


go[x] £o is the function used to cause 
a transfer in prog. (GO A) will 
cause the program to continue at 
the label A. 


A go can be used at any level in 
a prog. If a go is executed in 
an interpreted function which is 
not a prog, it will be executed 
in the last interpreted prog 
entered. 
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return[ x] 


set[x;y] 


setq(x;y] 


зегаа (хљђ у] 


A return is the normal end of a 
prog. Its argument is evaluated 
and is the value of the prog in 
which it appears. If a return 

is executed in an interpreted 
fun.tion which is not a prog, 

the return will be executed in 
the last interpreted prog entered. 


This function sets the atom which 
is the value of x, to the value 
of y, and returns the value of y. 


This FSUBR is identical to set, 
except that the first argument 
is not evaluated. 

Example: If the value x is c, 
and the value of у is b, then 
set (хуу) would result in c 
having value b, and b returned. 
setq[x;y] would result in x 
having value b, and b returned. 
In both cases, the value of y 
15 unaffected. 


Identical to setq except that 
neither arguient is evaluated. 


га 


Predicates and Logical Connectives 


atom[x) 


eq(x;y] 


eqpi[x;y] 


neq[x:y] 


п111[] 


null[x] 


equal[x;y] 


atom[x]eT if x is ап atom; NIL 
otherwise. 


ғ Өв іні Әә кс) 


The value of eq is T if x and y 
are identical atoms, NIL other- 

wise. This includes numbers, if Эд 
eq is called from an interpreted x 
function. It is not guaranteed 2 | 
for floating point numbers and 

large integers when used in a 

compiled function, since it is 

compiled open as a 24 bit compare. 


Identical to eg, ^xcept that 1t 
is compiled closed, and hence 
will work for all numbers in 
compiled code. 


The value of this function is T 
if x is not eqp to y, and NIL 
otherwise. 


Defined as NIL 


eq[x;NIL] 


The value of this function is T 
if x and y are equal, that is, 
identical S-expressions, and NIL 
otherwise.  Identical here means 
that they will print identically. 
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апа[ xp.. x, J Ynis functlon is an FSUBR and 
can take an indefinite number of 
arguments. Its value is the 
value of its last argument if 
none of its arguments has value 
NIL, and is NIL otherwise.  Argu- 
ments past the first null argu- 
ment are not evaluated. 


HIMEN tetti m ittm ett on 


Srt А tn 


or[xi;...;xn] ог is also an FSUBR and may have 
an indefinite number of arguments 
(including 0). or has value NIL 
if all of its arguments have 


АП 


ШИРК 


Ё 

| value NIL, otnerwise, it has the 
E value of its first non-null argu- 
| ment. Arguments past this one 

E are not evaluated. 

: 

E not[x] Same as null 

: memb[x;y] This function determines if x is 
Ё a member of list y, i.e. if there 
Е is ап element of у eq to x. If 
: So it returns the portion of the 
| list starting with that element. 


If not it returns NIL. 


илч 
- 


member[ x;y] Identical tc memb except that it 
uses equal insteau of eq to check 
membership of x in y. 


intersectioníx;y] 


unioulx;y] 


This function returns with a list 
whose elements were members of 
both lists x and y. 


This function is entered with two 
lists. It returns with a list 
consisting of all elements 
included on either of the two 
original lists. If the same 

item is a member of both original 
lists, it is included only once 
on the new list. 
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append[ x;y] 
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SECTION VI 


LIST MANIPULATION AND CONCATENATION 


The value of list is a list of 
the values of its arguments. 


This function copies the top 
level of list x and appends list 
y to this copy. The value is 
the combined list. 


This function is similar to 

append in effect, but it causes 
this effect by actually modifying 
the list structure x, and making 
the last element in the list x 
point to the list y. The vaiue 

of nconc is a pointer to the first 
list x, but since this first list 
has now been modified, it is a 
pointer to the concatenated list. 


=== 


tconc[ x;p] 


lcone[x;p] 


attach[x;y] 


This function provides an efri- 
clent way for placing an item x 

at the end of a list. This list 
is the first item on p, that is, 
car[p]; сдаг[р] 15 a pointer to 

the last element in this list; x 
is placea on the end of the list 
by modifying this structure, and 
x is placed on the list as an 
item. The effect of this function 
is equivalent to 

nconc[carf[p]; List[x]], with cdr[p] 
updated to point to the last ele- 
ment of the modified list. 


This function is similar to tconc, 
except that in tnis case x is a 
list. An entire list will be 
tacked on the end of саг[р], and 
саг[р] will be adjusted to be a 
pointer to the last element of 
this new combined list. Both 
tconc and lconc work correctly 
given null arguments. 


This function attaches the element 
x on the front of the list y by 
doing an rplaca and an rplacd. 
This will not work correctly if 

y is an atom. ‘YTnus it is similar 
to cons, except that it modifies 
the contents of the first element 
of the non-null list у. 
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remove[x;1] The function remove removes all 
occurrences of x from list 1, 
giving a copy of x with all ele- 
ments equal to x removed. 


dremove[x;1) This function is identical to 
remove, but actually modifies 
the list 1 when removing x, and 
returns x itself. 


горуГх1 This function makes а copy of the 
list x. The value of copy is the 
(cation of the) copied list. А11 
levels of x are copied. 


геуегзе[1] This is a runction to reverse the 
top level of a list. Thus, using 
reverse on 
(A B (C D)) gives ((C D) B A) 


dreverse[1] Identical to reverse but dreverse 
destroys the list 1 while reversing 
by modifying pointers, and thus 
does not use any additional 
storage. 


subst([x;y;z) This function gives the result of 
substituting the S-expression x 
for all cccurrences of the atomic 
symbol y in th- S-expression 2. 
It returns a copy of z with the 
changes made. 


осе 


dsubst[x;y;z] Identical to subst, but physically - 
inserts а сору of x for y in z, 
thus changing the list structure 
z itself. 


sublis[x;y] Here x is a list of pairs: 
(Qu. vi) (us. v5) YR (а Ур) ) 


The value of sutlis(x;y] is the 
result of substituting each v 
for the corresponding u in y. 
Copies the structure y with 
changes. 


subpair[x;y:z]fi Similar to sublis, except that 
eiements on Y are substituted for 
corresponding atoms on x in z. 
New structure is created only if 
needed, or if fl=T. 


7ast(x] This function has as its velue a 
pointer to the last celi in the 
list x, anc returns NIL if x is 
an atom. i.e. if х=(А B C) then 
last [x] = (C) 


2302 
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nth[x;n] 


length[x] 


The arguments of nth are a list x 


and a positive integer n. Its 
value is a list whose first ele- 
ment is the nth element of list 
x. Thus if n = 1, it returns 
the list x itself. Ifn# 2, 

it returns саг[х]. If n= 3, 

it returns cddr[x], etc. 

If n = 0 it returns cons[(NIL,x]. 


This function has as a value the 
length of the list x. If x is 
an atom, it returns @. 
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SECTION VII 


PROPERTY LIST FUNCTIONS 


put[x;y;z] This function puts on the pro- 
perty list of x, the label у 
followed by the property z. The 
current value of z replaces any 
previous value of z with iabel y 
on tnis property list. 


гепргоріхҙу 1 This function removes all occur- 
rences of tne property with label 
y from the property list of x. 


prop([x;y;u] The function prop searches the 
list x for an item that is equal 
to y. If such an element 1s 
found, the value ог prop is the 
rest of the list beginning 
immediately after that element. 
Otherwise, the value is ul], 
where u is a function of no argu- 
ments. Its effect is similar to 
memb and member, and they are 


more efficient when usable. 


вехх,у: 


getpix;y] 


deflist[x:p] 


This function gets from the list 
x the item after the atom y on 
list x. If y is not on the list 
x, this function returns NIL. For 
example, get[(A B C D);B] = C. 


This function gets the property 
with label y from the property 
list of x. 
NOTE: Both getp and get may be 
used on property lists. However, 
since getp searcnes a list two at 
a time, the latter allows one to 
have the same object as both a 
property and a value. e.g., if 
the property list of x is 
(PROP1 A PROP2 B A C) 

then get[x;A] = PROP2, 

but дебр[х;А] = С. 


This function is used to put 
items on property lists. Its 
first argument x is a list of 

two element lists. The first of 
each is a name. The second ele- 
ment is the value to be stored 
after the property p on the pro- 
perty list of the name. The 
second argument p is the property 
that is to be used. 
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add[x;y;z] This function adds the value z to 
the list appearing under the 
property y on the atom x. If x zx 
does not have a property ўз the + 
effect is the same as 23 
put(x;y;list(z]]. 


assoc(x;a] If a is a list of dotted pairs, 
then assoc will produce the first 
pair whose first item is eq to x. If 
such an item is not found, assoc 
will return NIL. 


sasscc[x;y;u] The function sassoc searches y, 
which is a list of dotted pairs, 
for a palr whose first element is 
equal to x. If such a pair is 
found, the value of sassoc is this 
pair. Ovcherwise, the function u 
of no arguments is taken as the 
value of sassoc. 
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getd(x] 


putd(x;y] 


putdq(x;y] 


SECTION VIII 


FUNCTION DEFINITION AND EVALUATION 


This function gets the definition 
of the function whose name is 

the value of x. If x is nota 
de:?ined function, the value of 
getd(x] is NIL; if x 15 a machine 
code function, the value is a 


number. 


putd places the value of y into 
the fnction cell of бие atom 
which is the value of x. This 
is the Lasic way of defining 
functions. putd is mnemonic for 


put definition on x. The value of 


putd is the definition (value of 
y). 


This function 15 similar to putd, 
but both arguments anre considered 
quoted, and its vaiue is x. 
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fntyp[fn] 


define[x] 


This function returns NIL if the 
atom fn is not the name of a de- 
fined function. If fn is a func- 
tion, then fntyp returns one of 
the foilowing as defined in the 
section on function types: 


EXPR CEXPR SUBR 

EXPR* CEXPR* SUBR* 
FEXPR CFEXPR FSUBR 
FEXPR* CFEXPR* FSUBR* 


The prefix F indicates unevalu- 
ated arguments; the prefix C in- 
dicates compiled code; and tne 
suffix * indicates an indefinite 
number cf arguments. 


The argument of define is a list. 
Each element of tne list is it- 
self a list containing two 

or more items. In a two-item 
list, the first item of each ele- 
ment of the list is tne name of a 
function to be defined, and the 
second item is the defining 
LAMBDA or NLAMBDA expression. In 
longer lists, the first item 

is again the name of the function 
to be defined. The second is the 
LAMBDA list of variables and the 


remainder of tne lists are forms for 
evaluation. As an example, consider 


the following two equivalent 


EGO 


Ра 


ез 


defineq(x;.. 


evalíx] 


evalaíx;a] 


M 


expressions for defining the 
function null. 

1) (NULL (LAMBDA (X) (EQ X NIL))) 
2) (NULL (X) (EQ X NIL)) 


define will not allow redefini- 


tion of a SUBR or FSUBR. 


This FEXPR is closely related to 
define. However, it can take an 
indefinite number of arguments, 
and it will treat them literally 
as if they were quoted. Each of 
the arguments must be a list, of 
the form described in define. 
Using defineq instead of define 
allows one to eliminate two pairs 
of parentheses in writing func- 
tions to be defined for loading 
with the function load. 


eval evaluates the expression x 
and returns this value. 


This is the regular eval from 
1898 LISP. Its first argument is 
a form which is evaluated by us- 
ing the values obtained from a, 

a list of dotted pairs. That is, 
any variables appearing free in 
x, that also appear on a, will be 
given the value indicated on a. 
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evalr[x;a] 


e[x] 


apply[fn;args ] 


nargs(fn] 


arglistifn] 


Same ас evala except with list а 
reversed. Used by evala. 


This FEXPR is defined as eval; 
however, it is shorter and it re- 
moves the necessity for the extra 
pair of parentheses for the list 
of arguments for eval. Thus, 
when typing into evalquote one 
can simply type e followed by 
whatever one would type into eval 
and have it evaluated. 


apply applies the function fn to 
the arguments args. i.e. the 
arguments of fn, args, are not 
evaluated but given to fn direct- 
ly. 


Returns NIL if fn is not a func- 
tion, and the number of areumnents 
of fn if it is. It returns 1 for 
functions of tyne 

EXPRE, FEXPR*, CEXPR*, CFEXPR*, 
CSUBR* and CFSUBR*. 


Returns with the list of argu- 
ments of the function fn. Causes 
an error if fn is a built-in 


funetion or undefined. 
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setarg[n;vj 


This function works with a func- 
tion of type EXPR* or CEXPR*. 
It returns argument n of that 
function. It is undefined if 
п<0 or n»m where m is the number 


of arguments bound. 


Sets argument n of an EXPR* 
function to v. 
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SECTION IX 
THE LISP EDITOR 


The LISP editor allows rapid, convenient modification of list 
structures. Most often it is used to edit function definitions, 
often while the function itself 15 running. It is another impor- 
tant feature which allows good on-line interaction in the BBN-LISP 
system. 


Editor Language Structure 


Let us take a concrete example of a list (not necessarily a func- 
tion definition) to be edited. Suppose we are editing the follow- 
ing incorrect definition of tue append function: 


(LAMBDA (X) Y (COND ((NUL X) Z) (T (CONS (CAR) 
(APPEND (CDR X Y)))))). 


At any given moment, the editor's attention is confined to a 
single list (generally a subcomponent of the original list being 
edited), which it will print when given the command P. To avoid 
printing of confusing detail, sublists of sublists will be printed 
simply as &. Thus: 


Ер 
(LAMBDA (X) Y (COND & &)). 


where * indicates that this line was typed by the user. 
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Only the list оп which attention is currently focused may be 
changed. Commands thus fall naturally into four classes: moving 
around the list stru^ture; making changes in the current list; 
printing parts of the list being edited; and entering and leaving 
the editor. 


Many commands use the convention that an integer designates a 
sublist of the current 1156. For example, if an integer alone 
is typed, attention is focused on the designated sublist of the 
current list. 


Thus : 


#2 
il 
(X) 


The converse command is the number #, which causes the current 
list to revert to its former state. For example, starting again 
with the list at the beginning cf the section: 


*3 P 

Y 
“ИР 

(LAMBDA (X) Y (COND 8 &)). 


Note the use of scveral commands on a single line. In BBN LISP, 


а carriage return is printec automatically whenever a rught paren- 


thesis is typed which causes the parenthesis level to become a 
zero. Therefore, a non-atomic command is necessarily always the 
last command on its line. 


ETE 


~ 


Eb 


In the remaining examples, ш.1е55 mentionec specifical'y, it is 
assumed that the state of the edit is that which existed at the 
end of the previous example. As above, lines typed by the user 
are prefixed with an asterisk. 


Attention Commands 


The two fundamental commands for moving around the structure have 
ғ еайу been mentioned: a positive integer n, to examine the nu 
sublist, and Ø, to revert to the superlist. If n is a positive 


integer, then -n examines the nt” 


sublist of tne current list 
starting from the end and counting vackwards, i.e. -l examines 


the last sublist of the current list. 


A more Grastic command 15 9, which clears the editor's memory of 
descent through the structure and reestablishes the (ор level of 
the entire list structure being edited as current. Thus: 


*4 21+ P 
(LAMBDA (X? Y (COND & &)). 


р command similar to n is (NTH n) which caused the list starting 
with the nth sublist of the current list to become current. Thus: 


*(NTH 3) 
*P 
(Y (COND & &)). 
"4 P 
(LAMBDA (X) Y (COND & &)). 


“цаг 3 


(NTH -n) may also be used, with the expected result: 


*(NTH -3) 
#р + 
((Х) Y (COND & &)) 


. The command (F e), where e is any S-expression, searches for an 
instance of e in the current list, and then acts like NTH, so 


m that for example: 


*(F Y) 
ер 
(Y (COND 8 #:). 


[ A more thorough (and time-consuming) search is provided by 
which searches through the entire structure. Thus: 


т 
! *(F Z T) 
Ер 
(2) 
“тр 
((NUL <) Z) 
“Фр 
(COND (8 2) (T &)) 
ЕЙ P 
(LAMBDA (X) Y (COND & &)). 


TOR 


кене) Б 


(ве T) 


One more variation is provided by (F e n), which finds the nth 


occurrence of e anywhere in the struct: ^. The search is done 
in printout order, so for example: 


“% (F X 1) 
яр 

(X) 
** (F X 2) 
жр 

(X) 
"g P 

(NUL X) 
ха (F X 3) 
"g Р 

(CDR X Y) 


The argument e of the P commands need not be a literal S-expression. 
The symbol & will match any element of a iist; the symbol -- as 

the last element of a list to be searched for will match the rest 
of any list. Thus: 


*^(F (NUL &) T) 
"P 

(NUL X) 

“ЖЕ (CDR --) T) 
яр 

(CDR X Y) 
*^(F (CDR &) T) 
2 


The question mark which followed the last commard is the editor's 
all-purpose error comment: it simply means something was wrong 
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with the last command. Тһе commands are simple enough that 16 
is rarely diffic. 16 to ascertain the nature of the error. А 


nmt 


problem may arise if several commands were stacked on a single 


ич 


line, since no indication is given of which one caused the error: 


ЫШТ 


in this case the state of the edit can always be dis^overed by 


using Р, 


Three facilities are available for saving information relating to 
the current state ог the edit and later retrieving it. At any 
stage in the edit, a mark can be made and later returned to. The 
commands are MARK, which marks the current state for future 
reference: *, which returns to the last mark without destroying 
it; and ++. which returns to the last mark and forgets it. For 


ma 


example: 
Ё "2р 
: ((NUL X) Z) 
E *MARK + (F CONS T) 
ж жр 
(CONS (CAR) (APPEND &)) 
#4 P 
(LAMBDA (X) Y (COND & &)) 
E *ee- Р 
((NUL X) 2) 
= he P 


2 


This last example demonstrates another facet of the error recovery 
mechanism: to avoid further confusion when an error occurs, all 
commands on the line beyond the one which caused the error are 
forgotten. 


ТАИТИ 
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A more drastic marking facility is available if it is desired to 
save the state of the edit in its entirety. Since chanres are s 


made as they are typed in, there is no simple way to undo part of - 
an edit. However, the ccmmand COPY wili make а cony of the entire 23 
state of the edit, which mav be retrieved with RESTORE. This has 
the effect of undoing all chanres made since COPY was riven, since 
the copy is not affected by editing commands given after the cory 
was made. This facility is unlike MARK in that a second COPY 
obliterates the list saved by the first. Furthermore, since 
RESTORE retrieves the copied edit state and not a copy thereof, 
subsequent RESTOREs will definitely not have the desired effect. 


Frequently it is desired to move or copy a sublist from one place 
in the structure being edited to another. No command for perform- 
ing this particular operation is provided. However, it is 

possible to set a variable to the current list or a sublíst thereof. 
The I command described below can then be used to treat this value 
exactly as though it had been typed in literally. In particular, 
the command (S v), where v is a variable name, sets v to the 

current list. (5 v Й) may also be used. Thus: 


*4 (S EL2 2) 
will result in setting the value of EL2 to the sublist (X). 
Modification commands 


Just as most general text editors contain INSERT, REPLACE, and 
APPEND commands, the LISP editor provides facilities for these 


three basic operations. To insert the S-expressions e e 


l''"Tm 
before sublist n of the current list, one simply gives the 


command (-n еу... e» thus: 


EJ m 


#+ (F CAR T) 
яр 

(САВ“ 
*(-1 CRR) 

P 

(CRR CAR). 


To replace the nth sublist with е1‘: бе > one gives the command 
(n е)...е,), for example: 


**(F NUL T) 
*P 

(NUL X) 
*(1 NULL IS) 
=P 

(NULL IS X). 


And to append at the end of the current list, one writes 
(N е)...%), thus: 


*(N THIS LIST) 
EP 
(NULL IS X THIS LIST). 


Deletions may be accomplished by using the replace operation with 
no new S-expressions specified: to restore the list we have just 
created to the state in wnich we presumably want it, we can say: 


*(5) 
“(4) 
*(2) 
яр 
(NULL X). 


Deletions should generally be made from back to front, since other- 
wise the indices of later sublists will change as earlier ones 

are deleted, e.g. the above sequence of commands given in front 

to back order would have been 


*(2) 
*(3) 
*(3). 


Very often one wants to make a simple change in a list structure, 
without wanting to kncw exactly how to trace down the structure 
to the point where the emendation is to be made. The command 

(R еје,) replaces all occurrences of ej, in the current list and 
all its substructure by е. This is done using a variant of 
Subst called dsubst that runs faster, and physically replaces the 
old structure in the list by a copy of the new structure. For 
example: 


**(R Z Y) 
#4 2 P 
((NUL X) Y) 


The mechanism by which lists saved with the S command may be used, 


among other things, is (Тс ey ... en): which is equivalent to 
([atom[c]+c; Т+еуа1[с]] eval[ej 22: еуа1(е,1). Thus for example, 
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if EL2 has been set to (X) as per the sample above: 


** (I (CAR (QUOTE (F))) EL2 T) 
*P 
(X) 


because the I command is equivalent to (F (X) T). 


Structure changing commands 


The commands presented in the last section do not allow convenient 
alteration of the list structure itself, as opposed to components 
thereof. Ccnsider, for example, the list (A B (C DE) FG). We 
can remove the parenthesis around (C D E), which is the third 
sublist, by (LO 3) (this stands for take Left paren Out). This 
produces the list (A BC D E). LO simply deletes all elements of 
the original list beyond the one specified. If we want to preserve 
them, we could say (BO 3), take Both parentheses Out, which pro- 
duces (ABCDEFPF 3). Conversely, if we want to take the partial 
list beginning at B and subordinate it one level, making 

(А (B (CD E) F G)), we can say (LI 2), i.e. put a Left parenthe- 
sis in before sublist 2 (aad a matching right parenthesis at the 
end of the list). Again, if we want the matching right parenthe- 
sis inserted somewhere other than at the end of the list (after 
the F, for example), we can say (BI 2 4), put Both parentheses 

In around elements 2 thrcugh 4, which results in the list 

(A (B (C D E) F) G). 


Two other operations of this sort are also possible. If we wanted 
to bring only the D and E up to the level of the A B РО, and 
leave (C) as a sublist, we can use (RI 3 1), namely move the Right 
paren at the end of sublist 3 In to sublist 3 after sublist 1 
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(of sublist 3). This will produce (A B (C) DE F G). A related 
operation is (RO 3), which means move the Right parentiesis of 


sublist 3 Out to the end of the list, producing (A B (C 


Finally, 1f it is desired to move a right parenthesis only part- 


way out, for example to produce (A B (C D E F) G), this 
accomplished by (RO 3) followed by (RI 3 4). 


Printing commands 


We have already encountered the command P, which prints 


list showing only one level of nesting. To print a selected sub- 
list in the same way without changing the state of the edit, 


(P n) ís used: for example, 


# + Р 
(LAMBDA (X) Y (COND & &)) 
*(P 2) 
(x). 


Furthermore, one may examine the nth sublist (or, 1f ns 
current list) to m levels of nesting by using (P n m). 
vention is that m=3 yields the usual format: several i 


are given below: 


*(P Ø 1) 

& 
*(P Ø 2) 

(LAMBDA & Y &) 
#(Р Ø 3) 

(LAMBDA (X) Y (COND & &)) 
*(P 4 2) 

(COND & &) 
*(P 4 4) 

(COND ((NUL X) 2) (T (CONS & &))). 


-50- 


-ix ж. adidas ote oin ama 


— CORP EFE RE OEP ET 54 Y 


can be 


i 
| 
pero, | 
| 
| 


the current 


0, the 
The con- 
llustrations 


«crust P Lia 


е чч = 5 єє, 


Фотир 


E 
сал 


Another command wnich is available for examining “һе environment 
during editing is (E e), which simply prints the value of e with- 
out disturbing the state of the edit. This is done under errorset, 
so that one can actually try to run the function which one is 
editing. It should be mentioned that changes are made as soon as 
they are typed in, so that the state of the definition of a func- 
tion (which is what is usually being edited) is always exactly 

what one expects. Also, the variable l contains the state of the 
edit, with the current list being car(1]. Thus, (E (CAR L)) will 
cause the current list to be printed by print. 


Edit Macros 


In editing a set of functions, to make a consistent change in a num- 
ber of places, one must give the same sequence of commands a number of 
times. For example, to replace all occurrences of calls to 

(FOO &) Бу calls to (FIE & T), (where & stands for any expression), 
one would tvpe 


^ 

(F FOO T) 
(1 FIF) 
(N T) 


as many times as the replacement was necessary. To save this 
typinr, one can define an edit Macro, called RF for example, by 


typing 


(M RF + (F FOO T) (1 FIE) (N T)) 


SS 


ТЫА е ARR ttt ен 


Then each time you type 


RF 


the sequence of commands, following the RF in the definition 1:55, 
will be executed. If RF were made the last command in the list, 
the sequence would be repeated until FOO could not be found. 


--, Өв” END ŒD = => 


The simple ed ;cros described above cannot be given any argu- 
ments, and will always do exactly the same thing. One can also - 
define macros м: ісһ use parameters. For example, to define a 
macro to switch two items in a list, onewould type 


(M SW (A B) (5 SW1 A) (S SW2 B) (I B SW1) (I A Sw2)) 


where the list of argument names (A B) immediately follows the 
macro name, SW. To make this macro, SW switch items 2 and 7 in 
a list, one would type 


(SW 2 T) 


This command would substitute 2 for A, and 7 for B, in the macro 
definition following the argument list (A B); and then execute 
that sequence of commands with the substituted values. In this 
case, the sequence would be 


(S SW1 2) 
(S SW2 7) 
{т TEST) 
(І 2 SW2) 


Note that a macro with no parameters is called by typine an atom 


252: 


(its name): a macro with parameters must be called by using its 
name as the first element of a list, followed by the values to be 
substituted for the parameters Т the macro. 


All the edit Macro definitions can be found on a free varíable 
called EDITMACROS. This value can be edited by the editor, and 
wili be the cumulative list of all macros defined since the current 
ѕуѕіп was done. Мем definitions of macros supercede old ones. 

This feature lets you easily expand the repertoire of edit commands, 
and thus "program' the editor. 


Using the editor 


As presently interfaced to the outside world, the editor consists 
of a basic function for editing S-expressiuns, edite, and three 
special NLAMBDA functions for editing values, definitions, and 
property lists, respectively editv, editf. and editp. Thus, 


*EDITF(APPEND) 
EDIT 


would be used to begin the edit which has been used as the example. 
When editing is complete, STOP or OK will cause edite to exit with 
the edited list as value. The three interface functions all re- 


turn as value the atom being edited, and place the new value in the 
appropriate place. 


In fact, the work of the editor is done by two functions editcom 
and editdefault.  Editcom assumes the existence of а free variable 
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L, initialized to list of the list being edited; а free variable 
Y, used to hold the copy made by COPY, if any; and a fiee variable 
M, to bold marks made by MARK. It accepts as its argument en 
editing command and performs the appropriate transformation on 
these three variables. Unreccgnizable commands are passed to 
editdefault, which is currently defined as A[[c];error[c]); the 
edit ts run by edite under an errorset. 


A complete example, starting with the erroneous definition given 
at the beginning of Section IX and ending with the correct defini- 
tion of append, is given below. 


#EDITF (APPEND) 
EDIT 
*(P f 199) 
(LAMBDA (X) Y (COND ((NUL X) Z) (T (CONS (CAR) (APPEND 
(сов X Y)))))) 
*(3) 
*(2 (X Y)) 
ер 
(LAMBDA (X Y) (COND & &)) 
*(R NUL NULL) 
“ғ Z Y) 
#4(F CAR T) 
*(N X) 
(Р CONS T) 
#3 (RI 2 2) 
"P 
(APPEND (CDR X) Y) 
**(P Ø 19g) 
(LAMBDA (X Y) (COND ((NULL X) Y) (T (CONS (CAR X) (APPEND 
(CDR X) Y))))) 
* STOP 
APPEND 
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In all fairness, it should be admitted that in this perticular 
instance it probably wovld have been faster to type the function 
However, LISP functions are typically three times es 
big as append and have only one or two errors. It has been found, 
after over a year of use at BBN and Berxeley, that the editor just 
described does materially decrease the amount of time required 

to produce working LISP programs. 


in again. 


A Summary of the Editor Commands 


Atoms 


n>0 
п<0 
n=0 


COPY 
RESTORE 


STOP or OK 


Makes nth element te current level list 
Makes nth element from end be current level list 
Makes previous level be current level list 


Saves a copy of current work 

Restores as current work earlier copy 

Prints current level list to depth 3 

Makes current list be the top level list 

Marks this point 

Makes current level be last marked list 

Makes current level be last marked list and forgets mark 
Exit from editor 


Other atoms give an error indication of ? if not defined as an 
Edit Macro. This can be changed by modifying the routine 
editdefault, currently defined as 


(LAMBDA (C) (ERROR C)) 


БЕ See каннын нк сл“ н-_-_-__- Жей рө E Sut aie e cm RR RR = E == E = | 


- 


accmexf xp do 


Lists 


(и 6, е„,..., ey? 


(n е, е.,..., ey) п<0 к 


(N T PPP е.) 


(5 папе) 
апа 
(S name £) 


(S name n) п» 


(R old new) 


(P n m) n30 


(F e) 


(F e T) 


(Fen) ng 


Replace element n by the k elements 


$1 $e Deletes the nth ele- 
ment if k=0 


Inserts е,...› Еу, before nth ele- 


ment 


Adds е, to e, at end of current 
level list 


Sets name to current level list 
Sets name to nth element 
Replaces all occurrences of the 
old item by new in current level 


list 


Prints element n to depth m 
(current list 1f n=0) 


Finds e at current level; "&" 
matches апу item,"--" matches any 


remalning list 


Finds e at any level 


Finds nth occurrence of e any level 


SP 


ізі бо = м би 


id 


(NTH n) n»1 


п<0 


(I comme.. ei: 


(E e) 


(LO n) 


(LI n) 


(RO n) 


(RI n m) 


e) 


Makes nth element be first element 
of current list 


Makes nth element from the end be 
the first element on the list 


Evaluates ej: Sy and then performs 
command as usual. 

Command can be a number, N, R, F, 
etc. If command is not atomic, 

it is evaluated. 


Evaluates and prints e 


Removes left paren before element 
n (and removes a right paren at 
end of current list. If there are 
no more right parens at end of 
iist, elements left hanging 

"drop off"). 


Inserts left paren before element 
n, (and a corresponding right paren 
at the end of *he list). 


Removes right paren after element 
n. It moves 1t to the end of the 
current list. 


Inserts right paren in element n 
after element m. In element n, it 
moves a right paren from the end 
of element n which must have more 
than m elements. 
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(BO n) Removes both left and right parens 
around element n 


(BI n m) Inserts both left ara right parens, 
Taxing а sublist at positior n 
containing elements n to m inclusive. 


(M name с, 62...61) Defines name (an atom) as an Edit 
Macro equivalent to the sequence 
of commands £3» Сре. £n: 

All other lists cause errors, which print "?", See the statement 

on editdefault above. 


Edit commands are all interpreted in one function editcom which 
accepts a single command as an argument. It and its subfunctions 
assume a free variable І, initialized to list of the list to be 
edited; a free variable Y to hold a copy, NT requested, and a 

free variable M to hold any marks created. With these restrictions 
editcom can be used as a subroutine (as 1t 1s 1n breakin, 

described in the section on debugging aids). Edite does the 
reading from the teletype, transmits the commands to editcom, 

and prints the "?" on errors. All errors and rubouts are caught 

by the errorset inr edite. 
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pack[x] 


unpack[x] 


cheon[x;j] 


SECTION X 


ATOM, ARRAY, AND STORAGE MANIPULATION 


Tie argument x of pack must be а 
list of atoms. The value of pack 
15 a single atom whose print name 
із a packed version of the print 
names of all the atoms given in the 
list. Thus: 
раск((А BC DEF 0)1 = ABCDEFG 
pack[(1 "." 3)] = 1.3 а floating 
point number 


The argument of unpack should be an 
atom. The value of unpack is a list 
which contains, in order, the char- 
acters which make up the print name 
of that atom. 


Retu*ns & list of numbers represent- 
ing characters in print name of x 
which must be an atom. 
J = NIL prinl representation 
= T prin2 representation 
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gensynm( } This function of no argument gener- " 
ates а unique symbol of the form | 
Annnn, in which each of п'5 is a 
replaced by a digit. Thus, the 
first one generated is А0001, etc. 
This is a way of generating new Эс 


atoms for various uses within the =i 
system. 5 
oblist[ 5 Creates а 15% of all atoms 


currently in the system. 


гес1а1т[ ] This function initiates a garbage 
colection and returns “ith the 
number of available Liz? words in 
free storage. See minfs. atoms 
with во property list, value ог 
function definition, and not us. 
in any list, are collected. 


minfs[n] Sets the minimum amount of free 
storage which will be maintained by 
the garbage collector. If, after 
automatic garbage collection, fewer 
than n free words are present, (as 
printed out by the garbage collector) 
sufficient storage will be added to 
raise the level to n. 


gc£ag[x] If х=Т garbage collector will print 
a message when entered. If xzNIL no 
message is printed. Previous setting 
is returned. Initially set to T. 
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logout[] 


closer(a;x] 


11р[х] 


орепг[а] 


1ос [Х ] 


vagi x] 


allocate(n] 


В aire май айаш на. чайдын ла tesa Rab eli. aber 


Deactivates users program and returns 
the user to the time-sharing system 
executive. 


Stores x into location a. Both x 
and a must be numbers. 
а<214 actual core location 
a2" address in virtual 
address space. 


Unrestricted car of x. 


Value is number in a as cefined 
in closer. 


Makes a number out or x, i.e. 
returns the virtual address of x. 


The inverse of loc. Unboxes num- 
bers. An unboxed number n which 
doesn't correspond to the address 
of a list structure or an atom is 
printed /n e.g. array pointers. 


Allocates an n word block in array 
(binary program) space. Returns a 
vointer to the address of the first 
word allocated. Returns NIL if no 
more array (binary program) space 
is available. 


sog 


statistics[] 


storage( ] 


Array Functions 


Prints out statistics on number 

of vraparounds of compiled ccde; 
number of mapped stores; total 
number of mapped references (car's, 
cdr's, cons's, rplaca's, rplacd's, 
getd's, etc.); total number of 
drum references. 


Prints out current status of 

storage including numoer of binary 
program (array) words in use; number 
of list words (two 94f words) in 
use; number of 9l words available; 
and number of words used up for 
print names. 


Arrays and compiled code are both allocated out of a common 
Arrays of pointers and unboxed integers may be mani- 
pulated by the following three functions: 


array space. 


аггау[п,р,у) 


This function allocates а block of 
ntl 94g words, of which the first 

4 are header information. The next 
o<n are cells which will contain 
unboxed integers, and are initialized 
to Ø. The last п-р>0 will contain 
pointers initialized to v. If p is 
NIL it is assumed equal to Ø (1.е., 

a symbolic array). The value of 

this function is ап urbcxed nunber 
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elt[a;m] 


зеба[а;т;у 


arraysize[a} 


which is the location of the array 
in virtual memory, and is called 
an array vointer. 


Has as value the пей element of 


the array pointed to by a. For 
out or bound calls, if m<l or mon, 
where n is the length of the array 
a, elt gives element 1 if m<l, or 
element n if mon. 


th element 


Sets the value of the m 
of a to v. On out-of-bounds 
reference no store is made. The 
value of this functicn is always 
у. It is the users responsibility 
to ensure that no pointers are 
placed in the non-pointer area. 
Any in that area will not be 
traced during garbage collection. 


Returns the size of array a if a 
is an array pointer. 


There will be three parallel functions, arrayf, eltf, and setaf 
which will manipulate arrays of unboxed floating point rumbers. 
Until they are implemented, only pointers to floating point 
numbers can be stored in arrays. These will be useless until 
open floating point arithmetic is available 
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SECTION XI 


FUNCTIONS WITH FUNCTIONAL ARGUMENTS 


As in all LISP 1.5 Syste.s, arguments can be passed which can then 


be used as functions. 


Functions which use functional arguments 


should use variables with obscure names to avoid conflict of vari- 


able names with variables used free in a functional argument. 
Тлеге is no "FUNARG device" used in this system. All systen func- 
tions standardly us? variable names consisting of the function 
name concatenated with x or fn etc. A FUNARG device may be 
implementec in tne future. 


funetionfx] 


map[x;fnl;fn2] 


Similar to quote except that x is 
the name or definition of a fu:ction 
usec as an argument; must be used 
with all functional arguments. 


If fn2 is NIL (i.e. not provided) 
this function applies the function 
fnl to successive tails of the 1:55 
x. That is, first it computes 
fnl[x], and then Гп1Гсаг[х]], eve. 
until x is NIL; however, if fne is 
provided, Гпг[х] is used instead 
of сагГх1 for the next call for fnl. 
Thus 1f fn2 were cddr, alternate 
elements of the list world be 
Skipped. If fn2 is a conditional 


E 


СКОНЕ 


mapc[x;fr1;fn2] 


mapcar[x;fn1;fn2] 


maplist[x;fnl;fn2] 


mapconc[x;fnl;fn2] 


mapcon[x;fnl;fn2] 


expression, then the next element 
to be lcoked at can be contingent 
on a computaticn. 


Identical to man, except that 
fnitcar[x]] is computed each time. 
If fn2 is NIL, fnl is applied to 
each element of the list x in turn. 


If fn2 is NIL, this function applies 
the function fn] to each of the 
elements of the list x. It creates 
a new list which is a map of the 
old list in the sense that each 
element of the new list 1s the 
value of anplying fnl to the 
correspondine element of the old 
list. If fn2 is provided, fn2[x] 
is used instead of cdr[x] for each 
succeeding computation with fnl. 


This function comnutes successively 
the same values that map computes; 
it forms a new list consisting of 
successive values of applications 
of this function. 


Identical to mapcar except that it 
does an псспс instead of a cons. 


Identical to maplist except that it 
does an nconc instead of a cons. 
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This next set of functions is a Slightiy different extension of 
the mapping functions usually found in LISP 1.5. They are all 
defined by EXPR* type expressions, and make no recursive calls. 
The first argument to each is a function fn of n arguments. 
Following this first argument should be n lists. The mapping 
function iterates down the lists by successive cdrs until any one 
becomes empty and then rturns the value specified. At each itera- 


tion, fn is applied to these lists, as specified. For example, 
the function 


раіг[х;у] could be defined as 
maccar[ function[cons];x;y) 


тас fnix, :x, i... ix] Similar to map. Applies fn to 


' 
Succes ive cdr's of XysXo;, үх . 


—1 


Returns NIL. 


maec[fnixiixj:... 5x] Similar to mapc.  Applies fn to 
car's of successive cdr's of 
Х15Х55...;Х,. Returns NIL. 


maclistl£n;x, ixi.. ix] Similar to maplist. Applies fn 
to successive cdr's of 
Х1:Х5:...3Х,. Returns a consed 
list of these values. 
maccar[fnixj;x;...:x ] Similar to mapcar. Applies fn to 
car's of successive cdr's of 


n 


X1:X55...;X4. Returns a consed 
list of these values. 
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maccon[fn:x, ix4:. . За | Similar to mapcon. Applies fn 
+. successive cdr's of 
х,}Х„;.„;}х_. Returns an псопсед 
2l1'-2 n —— 
list of these values. 


macconc[fn;x, ;x5:... 3X4] Similar to mapconc Applies fn 
to car's of successive cdr's 
of ХХХ. Returns an 
nconced list of these values. 
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SECTION XII 


VARIABLE BINDINGS AND PUSHDOWN LIST FUNCTICNS 


A number of schemes have been used in different versions of LISP 
for storing the values of variables. These include: 


1. Storing values on an association list paired with the 
variable names. 


2. Storing values cn the property list of the atom which is 
the name of the variable. 


3. Storing values in a special value cell associated with 
the atom name, putting oid values on the pushdown list, 
and restoring these values when exiting from a function. 


4, Storing values on the pushdown list. 


The first three schemes all have the property that values are 
scattered throughout list structure space, and, in general, ina 
paging environment would require references to many pages to deter- 
mine the value of a variable. This would be very undesirable in 
our System. In order to avoia this scattering, and possible ex- 
cessive drum references, we utilize a variation on the fourth 
standard scheme, usually only used for transmitting values of 
arguments to compiled functions; that is, we place these values 
on the pushdown list. But sincer we use an interpreter as well as 
a compiler, the variable names must be kept. The pushdown list 
thus contains pairs, each consisting of a variable name and its 
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value. The interpreter need only search down the pushdown list 
^or the binding (value) of a variable. 


One advantage of this scheme is that the current top of the 
pushdown stack is usually in core, and thus, drum references are 
rarely required. Free variables work automatically in a way 
similar to the associatior. list scheme. 


An additional advantage of this scheme is that it is completely 
compatible with compiled functions whicn pick up their arguments 
on the pushdown list from known positions, instead of doing a 
search. To keep complete compatibility, our compiled functions 
put the names of their arguments on the pushdown list, although 
they do not use them to reference variables. Thus, free variables 
can be used between compiled and interpreted functions with no 
special declarations necessary. The names or the pushdown list 
are also very userul in debugging, for they provide a complete 
symbolic backtrace in case of error. Thus, this technique, for 

а small extra overhead, minimizes drum геГегепсез, provides 
symbolic debugging information, and allows completely free mixing 
of compiled and interpreted routines. 


There are three pushdown lists used in BBN 940 LISP: the first 
is called the parameter pushdown list, and contains pairs of 
variable names and values, and temporary storage of pointers; 
the secund is a number stack for temporary storage of unboxed 
numbers; the third is called the control pushdown list, and con- 
tains function returns and otner control information. 


The following functions allow «ie to interrogate these pushdown 
lists from inside another function. The functions, nthfnback, 

evalv, setv, variables, and rename take an argument n which, if 
positive, 1“ the number of function calls which have been made ~ 
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essentially the depth of nesting of functions from the top level. 
If n is nekstive, it references back from the current call level. 
The function nthfn returns as a value a positive number which is 
the number of call levels from the top (consistent with that 
needed by nthfnback, etc.). The argument n to nthfn (n>o) is 
interpreted as the nth preceding occurrence (i.e. counting back) 
of the function named. 


nthfnback(n] Returns the name of function called 
at call level (position) n 


nthfn(fn;n] Returns the position (number of 
call levels from top) of the nth 
occurrence back of function named 


fn. 

evalv[var;n] Returns the value of variable var 
evaluated starting at pushdown list 
position n 

setv[var; n; val] Sets the value of variable var 


starting at pushdown position n 
to value val 


variables(n] Returns list of variable names on 
pushdown list at pushdown position 
n 

rename[old; n; new] The variable named old at level n 


will be renamed new. The push-list 
cell containing the variable name 
is changed. 


270 


retfrom[n;v] 


backtrace[n;m] 


Returns from the function at 
position n, with value y. Thus 
an error[] under a nlsetq is 
equivalent to a 
retfrom[nthfn[n1set4;1];NIL]. 


Prints out the untrace normally 
associated with errors, starting 
at position n, and going back 
to position m (i.e. n»m). If 
n=NIL; it is assumed equal to 
current position; if msNIL; it 
is assumed equal to 2. 
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SECTION XIII 


ARITHMETIC FUNCTIONS 


Integer Arithmetic 


The following functions all work on integers. When given floating 
point numbers as arguments, these arguments are fixed (converted 
to integers) before any operation is performed. Most of these 
functions are compiled as open code. 


plus[x4;x5:...;x,] Returns an integer x,+Xx5+...+x, 
minus[x] - x 
diffe^ence[x;y] This function has for its value 


the numeric difference between its 


arguments. 
addi[x] x + 1 
subl[x] x - 1 
times[xiix,;... :x4] Returnsan integer equal to the 


product of Хр Хр ха 


quotient[x;y] Greatest integer in quotient x/y 


2725 
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remainder [x;y] 


divide[x:y] 


питрбегр [х ] 


greaterp[x;y] 
lessp[x;y] 
zerop[x] 
minusp[x] 


1орапаГ(х;...;21 


logor[x;...;z] 


logxor[x;;...;x 


22 


This function computes the number 
theoretic remainder for fixed- 
point numbers. 


This function yields a dotted pair 
whose first member is quotient[x:y] 
and whose second member is 
remainder[x;y]. 

T if x is a number; NIL otherwise. 
This function works for floating 
point numbers as well as integers. 
T if x>y; NIL otherwise 

T 1f х<у; NIL otherwise 

T if и is zero; NIL otherwise 

T if х 1s negative; NIL otherwise 
This function takes the logical 

and of all of its argument, and re- 
turn this value as an integer. 

This function takes the logical 

or of ali of its arguments, and 


return this value as an integer. 


Logical exclusive ог of x),...,X, 


2032 


НД 


lsh[n:s] 


rsh(n:s] 


abs[x] 


Performs an arithmetic left 
Equivalent 


shift of s»o on n. 


ton* 5, 


Performs an arithmetic shift of 
320 сл n. Equivalent to n * 279, 


Returns absolute value of x. 
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Floating Point arithmetic 


The floating point arithmetic functions available in BBN LISP are 
fplus, fminus, ftimes, fquotient, and fgtp. They will accept 
mixed arguments, i.e. integer or floating point. Just as the 
integer-type functions fix any floating arguments before perfor- 
ming their computation, the floating-type functions float 

any fixed arguments before performing a computation. Thus the 
result of a floating point function is ~uaranteed to ve a floating 
point number. 


The functions specifically reiated to floating point are: 


fgtplx;y] Floating greaterp; compares by 
subtraction 

fix[x] Returns integer p&rt of x 

UT Produces floating number 

floatp[x] returns T if x is a floating 


point number, NIL otherwise 
fminus[x] Negative of x 
fltfmt[x] Cutput format control; x is 
defined as the time-sharing system 


formatting of floating point output 


fplus[x уху... 3X, ] Returns the sum of its arguments 
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fquotient[x;y] Returns x/y 
ft mer EX] X55... 5x4] Product of its arguments 


Equal and eqp w111 compare two floating point numbers for equality, 
and will float an intege» to compare it to a floating point number. 
Eq when compiled is an open 2! bit compare which usually wori't 
Work for arithmevic comparisons. Equal uses egp. 
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SECTION XIV 


INPUT/CUTPUT FUNCTIONS 


Opening and Closing Files 


BBN 94% LISP 1.69 allows the user to have апу г mber of files open 
at a given time. Restrictions in the time-sharing system currently 
limit this to a maximum of 2, however. A fi ^ із identified by 

its LISP File Name. 


The three basic file manipulation operations are: 
infile[name;type] 


used to open for input the file named Name, which must be of type 
type (1.е., for binary, 2, or for symoolic, 3) if type 

is not NIL. Its value is the name of the file if it was opened 
successfully, or NIL otherwise. The stand^-d input file is set 
to name. Т is the name of the teletype as an input (or output! 
file. 


outfile[name;type] 
opens for cutput the file name, which 15 set to type type if type 
is not NIL, and otherwise to type 3, symbolic. Its velue is the 


name or NIL as for infile. It sets the standard output file to 
name. 


ЕТЕ 


closef[x] Closes the named file. If x is 
NIL, it attempts to close the 
Standard input file if other than 
teletype. Failing that, it attempts 
to close the standard output file 
if other than teletype. Failing 
either, it returns NIL. If i: 
closes any file, it returns the 
name of that file. If it closes 
either of the standard files, it 
resets that standard file to teie- 


зі - NE NE NE €M 


type. 

орепріх1 Returns NIL 1f x 15 not an open 
flle, returns x 1f x 1s an open 
file. 


At any given tíme one input and one output file are selected as 
primary (the exact meaning cf this is given below). Normally 
these are both T for teletype input and output. The primary 
input file may be changed by 


input (пате | 
which sets name to the primary input file. Its value is the name 


of the old primary input file. Similarly, the primary output file 
may be set with 


output [name ] 


L 
1 
1 
1 
1 
! 
| 
1 
! 
1 
I 
| 
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which has the obvious effect. То read the current setting of the 
primary input and output files 


input[] 
and 

output[ 1 
may be used. 


Input/Output Transmission 


Without exception, functions that actually read or write on files 
may be given an additional argument which is the name of the file 
on which the operation is to take place. If the additional argu- 
ment is NIL, the primary file will be used. 
The following functions perform output: 

feed[n] 
produces n carriage returns and line feeds: 

prinl[a] 
prints its argumert. 

prin2[a] 
prints the expression a with double-auote marks inserted where 


required fer it to read back in properly; both prinl and prine 
print lists as well as atoms. Neither print a carriage return 
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upon termination, both have value a. 


prin3{a] Prints a using double quotes for 
separation and break characters 
specified by setbrk and setsepr 
as described under ratom 


print(x] Prints the S-expression х; 
uses prin2; its value is x 


spaces [n] Produces n spaces; its value is 
NIL 
terpri[] Produces a carriage return and line 


feed; its value is NIL 


If any print function is given an unboxed number n, it will print 
it as #n with n in octal. 


The print functions print, prinl, ргіп2, and prin3 are all effected 
by a level parameter set by 


printlevel(n] 


Tre variable n> controls the number of unpaired left parentheses 
which will be printed before any list will be printed as &. 


Suppose x s (A (B C (D (E F) G) Н\ К) 


Then if n = 2, print{x] would print 


(A (B C & H) K) 


VEREOR e ны 
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and ifn = 3, 
(A (2 C (D & G) H) К) 


and if n = 0, it prints as just 


The value of printlevel[n] is the old parameter setting. 


In order to change the 1сүе1 dynamically, while the system is 
printing at you, you can type control-P followed by a number, i.e. 
a string of digits followed by a period. The print level will 
immediately be set to this number for this printout. If the print 
routine is currently deeper than the new level all unfinished lists 
above that level will be terminated by "--)". Thus, 1f a circular 
or long list of atoms, is being printed out, typing in 


^g, 
will cause the list to be terminated. After this printout, tho 
level will be returned to its previous setting. Only printlevel 
(not P^) changes the print levei permanently. 
character[n] This function outputs on the tele- 
type a single character with octal 


ascii representation (code) n. n 
must be a number. 
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Input Functions 


read( ] 


rdflx(x) 


raton[ 1 


ratoms[a] 


Reads one S-expression from the 
current file 


If x 1s NIL this function will try 
to read one S-expression with 
read[]; if no error occurred in 
reading, it will return with list 
of the S-expression that was read. 
If an error occurs in reading, it 
returns with NIL. If x is not NIL, 
it will attempt to read an S-ex- 
pression and keep attempting to 
read it until it gets one without 
an error; each time it tries to 
read an S-expression and gets an 
error, it will print out x. In 
this case it returns with the S- 
expression itself (not list of the 
S-expression). 


Reads in one atom from the standard 
file. Separation of atoms is 
defined by the functions setsepr 
and setbrk. 


Calls ratom repeatedly until atom a 
is read. Returns a list of atoms 
read not including a. 


bh 


. 
Зөвхөн 


a кә EB we US и из шы ша QUO ое ша ш-н 


setsepr[x] 


setbrk(x] 


setseprci x] 


setbrke(x] 


tad 


Areuments should be octal numbers, 
e.g., 155q for carriage return. 


Characters defined by setbrk will 
delimit atoms and be returned as 
separate atoms themselves.  Charac- 
ters defined by setsepr will not be 
returned and will serve only to 
separate atoms. For example, to 
make ratom read in ordinary format, 
space (Оа), comma (14а), and 
carriage return (1554) are separa- 


tion characters, and left paren (102), 


right paren (114), and period (16а) 
are break characters. Thus 


setsepr[Oa 14q 1550! 
setbrx[10q 11а 168) 


would set up these characteristics. 
The value of setsenr and of setbrk 
16 NIL. Use chcon to find numeric 
codes for characters. Тһе tables 
are initially set to this standard 
LISP set of break and separator 
characters. 


Same as setsenr e«cept that x isa 
list of characters. 


Same as setbrk excent that x is a 


list of characters. 
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ratest[x] 


readc[ ) 


Input/Output Control Function. 


Performs two functions depending 
on setting of x. 


If x = Т ratest returns indicator 
which is: 


T 17 a separator was encountered 
immediately pric^ to last atom 
read by ratom. 


NIL if there was no separator 
between last two atoms returned 


by ratom. 


If x = NIL it returns an indicator 
which is: 


T if last atom returned by 
ratom was a break character. 


Reads the next character. Not 
affected by setsepr and setbrk. 


These functions perform a variety of operations on the state of 


files. Those marked with * do 
ment to indicate a rile. 


* clearbuf[] 


not take the optional extra argu- 


Clears the input buffer of the file 
(not particularly useful for any 
file other than the teletype) 
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* radix(n;i] 


* сопбго11)1 


1 .Т 


jJ = NIL 


* l11nelength[n] 


* position(í] 


et 


Sets output radix co n and sign 
indicator to 1. If 1 is T, 
negative numbers will print as sign 
and 23 bit value (normal). If i 

is NIL, all numbers print as 24 bit 
unsigned integers Returns previous 
setting. 


Sets modes for reading with ratom 
as follows: 


Eliminates LISP'S normal line 
buffering (and also eliminates 
automatic detection of control-A 
and control-Q as line~editing 
characters on the TTY). 


Restores line buffering (normal). 


Eliminates the echo of the character 
being deleted by control -А. 


Restores the echo (normal). 


Sets the length of the print line 
for all files. The value is the 
former setting of the line length. 


Gives the character position on the 
print line. No guarantees are made 
about its meaningfulness if output 
is being done intermittently to more 
than one file. 


* readp[] 


Special Functions 


sysout[name] 


sysin[name] 


rbin[x] 


wbin[w:x] 


Gives T if there is something in 
the input buffer (either the 155 
input buffer or LISP'S line buffer) 
and NIL otherwise. 


Dumps she entire state of LISP on 
the file named. This name should 
not specify a drum file, since mc.e 
than 38K of information (the maxi- 
mum for a sequential drum file) 

will always be written. When the 
LISP system is reassembled, old 
Sysout files are no longer readabie. 


Restores the state of LISP from a 
Sysout file. Sysin may only be 
done once after entering LISP. If 
it returns NIL. the file was not 
found, or was no longer a valid 
Sysout file. Sysin will return T 
if it was successful. 


Reads one word from x, the specified 


file. This function returns the 
word as a number. 


Writes one word, w, on file speci- 
fied by x. W must be a number. 


EX eT 
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usual way. 


Symbolic File Input 


1оаа(х;р) 


Files opened for binary 1-0 should be closed by closef in the 


load is a function which reads 
successive S-expressions from file 
X and evaluates each as it is read. 
If ps T, then load prints the value; 
otherwise it does not. load 
continues reading, S-expressions апе 
evaluating them, until it reads the 
single atom STOP followed by a 
carriage return, at which point it 
returns the va'ue NIL. Using load 
1s the standard way of getting 
Я Ба 2а ee Sa, оёж Da Cs у ИЙ! cuyes 
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fns (first argument) 
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fate (second argument) 


prettydef[fns;.2ile;vars] 


This function is used for the 
creation of files containing sys- 
tems of functions. 


The arguments are interpreted as follows: 


If à list, it is treated as a list 
of function names. If fns is an 
atom, it should have as a binding 
the list of functions for prettydef. 
The functions on the iist are 
prettvprinted surrounded by a 
(DEFINEQ ...) so that they can be 
loaded with 1cad. In addition, a 
SETQO will ое written which saves 
the iist of functions on the named 
atom, an. a PRINT will be written 
which informs the user of the named 
atom when the 12116 is subsequently 
loaded. 


The name of the fil» on which the 
output is to be written. The 
foilowing options exist: 
file=NIL 
The standard output file is 
used as determined by the 
last setting of output. 
file=atom 
The file atom is opened 1f not 
already open, and becomes 
the standard output file. 
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vars (third argument) 


E zi 


filezlist 
Car of the list is assumed 
to be the file name and is 
opened if not already open. 
The standard output file is 
not changed in this case. 


This option is used waere there 
are a number cf atoms having top 
level bindings which the user 
wishes to save on the output file. 
The foliowing options exist: 


If vars is an atom, this atom is 
evaluated and should yield a list 
of atoms. For each atom in this 
list, a SETQQ will be written which 
will restore the top level binding 
to the азот when the file is loaded. 
In addition, a SETQQ and PRINT are 
written whicn save and print vars 
as described above for fns. If 
the list contains STOP as its last 
element, endfile will be called on 
the specified file, closing it as 
described above. 


If vars is a list, the list is 
handled as above, except that the 
SETQQ and PRINT saving the list 
itself are not written. 
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As an additional option, if DATE is bound, "THIS FILE WRITTEN ON 
date" will be printed when the file is loaded. 


Examples: 
PRETTYDEF((FOO1 ЕОО2) /ЕОО/) 


The iile /FOO/ is now open, regardless of whether it was open 
before. Furthermore, /FOO/ is the new output file. 


PRETTYDEr((FQO3 FOO4) (/FIE/)) 
The file /FIE/ is opened, if necessary, and 2003 and FOO4 are 
written on it. /FIE/ is not closed. /FOO/ is still the output 
file. 

PRETTYDEF((FOO5 Е006)) 

2005 and Е006 are written on /ҒОО/ 


PRETTYDEF((FCO7 F008) /FIE/ (STOP)} 


F007 and F008 are written on /FIE/ which is closed with a 
STOP at the end. The ou‘put file is now the teletype. 


SET(FOO(FOO1 F002 #003)) 
PRETTYDEF(FOO /ЕОО/) 


FOO], F002, F003 are written on /ЕО0/. Also written on the 
file are (SETQQ FOO (F901 FOO2 Е003)) 
and 

(PRINT (QUOTE FOO)). 
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SET (FOOVAR (ZOT MUMBLE STOP)) 
SET (ZOT T) 

SET(MUMBLE NIL)) 

PRETTYDEF(FOO /FUM/ FOOVAR) 


The following are written on /FUM/: definitions of 


2001, Г002, and F003; 

(SETQQ FOO (РОО1 РОО2 РООЗ)): 

(SETQQ FOOVAR (ZOT MUMBLE STOP)); (SETQQ ZOT); 
(SETQQ MUMBLE NIL); (PRINT (QUOTE FOO)); 
(PRINT (QUOTE FOOVAR)); and STOP. 

The file 1s closed. 


AS you might surmise, the most convenient way to use prettydef is 
as follows: set a variable to the list of the functions desired 
іп a particul:r flle, say FOO, and another variable to a list of 
variables to be set in that file, if any; prettydef w111 do the 


rest. Then 1f you do 


LOAD(/FUM/) 


you will see 


THIS FILE WAS CREATED ON 4-06 (if you had ве; DATE) 
FOO 

FOOVAR 

STOP 

and the file will be loaded. 
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clock[n] 


time([x;n;g) 


for пз0 value of time of day 
clock, i.e., nunber of 
seconds since midnight 


Гог nsl time of day user logged in 


for па2 number of seconds of com- 
pute time since user 
logged in 


for п=3 time spent in garbage 
collections 


Time executes the computation x, 

n number of times, and prints out 
the number of conses, total time/n 
if nfl and computation time per 
iteration. Garbage collection 

time is not included, i.e., it is 
subtracted out. If n is NIL, it is 
set to 1. If g is T, garbage col- 
lection time is also printed. 


Example: 


TIME ((CONS NIL NIL) 1000 T) 
GARBAGE COLLECTION 

2458 CELLS 

1 CONSES 

12/1000=0.12000Е-01 SECONDS 

GARBAGE COLLECTION TIME: 23 SECONDS 
(NIL) 
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TIME ((PRETTYDEF (QUOTE (РОО)))) 
0 CONSES 

9.0 SECONDS 

(FOO) 
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SECTION XV 


ERROR HANDLING AND DEBUGGING FUNCTIONS 


Error Handling 


Errors in BBN LISP are dichotomized into two classes: H errors 
for which the user can provide Help on the spot; and H errors, 

for which no help is possible. Н errors in the LIS? system 
normally cause a trap to a routine which prints an error message 
and unwinds the pushdown list. While unwinding the pushdown list, 
LISP prints the functions which have been entered, and their argu- 
ments. The most recently entered function is -rinted first, etc. 
until the top level evalquote if reached. This printout can be 
terminated by pressing RUBOUT; this will return you to the LISP 
executive. See printlevel for a discussion of modifying the 
printout without terminating it. The function 


еггог[х] induces ап Н error, printing a 
message x 


An H error can be induced from the console by pressing the RUBOUT. 


To prevent H errors from stopping all computation by unwinding to 
the top level, the following functions can be used: 
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errorset[form; flag] 


This function calls eval with the 
value of form. If no error occurs 
in evaluation, it returns with a 
list containing one element, the 
value of eval[form]. If an error 
was encountered in the evaluation, 
it returns NIi. Note that NIL can 
only be returned if there was an 
error. A value NIL is returned as 
(NIL). The argument flag controls 
the printing of error messages. If 
flag=T, the error message is printed; 
if flag=NIL it is not. 


On an error the pushdown list is unwound to the errorset, but no 
further. Printing the untrace of functions and arguments on un- 
windin, 50 an errorset is controlled by esgag. If an error was 
induced by a RUBOUT, a second RUBOUT seen by LISP within 3 seconds 
will cause an immediate untrace past all errorsets. 


esgag[g) 


егзеба[х] 


Sets the unwinding flag for error- 
Set to g, and returns old value. 
If g=T an untrace will be printed 
on an unwind to an errorset, If 
g=NIL no untrace will be printed. 
Initially set to NIL. 


An FEXPR equivalent to errorset, 


with the argument X quoted, and 
flagsT. 
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nlsetq[x] 


quit(x] 


reset[] 


An FEXPR equivalent to errorset, 
with x quoted, and flagsNIL. 


Induces a "strong" error which 
will unwind through errorsets to 
the top level. It prints the 
error message x. An untrace is 
printed. 


Induces a "strong" error which 
will immediately return you to 
the top level with no untrace. 


There are three types oj } errors which will allow the user to 


— P € жы 


1) An unbound atom 
This usually occurs when an atom has been misspelled or 


fix the mistake, and let ine program continue. On these errors, 
the system will cali Огеак2, described below, through either of 
two functions interrupt or faulteval. These Helpable errors are: 


not set at the top level, but may also occur because of 


an error in syntax. 
print the message 


When this occurs the system will 


UNBOUND ATOM name 


where name is the unbound atom, and 


breakl will print 


(name broken) 


Then all the options of breakl are available which will 
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allow, for example, the user to set the atom, or return 
& value without setting it, editing the function with 
the error, etc. 


Undefii.ed car of form 
An H error is induced, and the system types 


UNDEFINED CAR OF FORM atom 


where atom is the one Гог which the error occurred. This 
usually implies that the function has not yet been 
defined, or that its name was mistyped. The user can 
then define the function, or return & value etc. The 
entire form is bound in breakl to a variable called 
BRKIEXP. 


Undefined function 
If in compiled code, a function is called which is 
undefined, the system will print 
UNDEFINED FUNCTION function 
and breakl will then print 
(function BROKEN) 
where function is the function not defined. 
The user may define this function as a LAMBDA expression 
with spread arguments only, if the function was also 


undefined at compiled time. The arguments (up to 12 of 
them) are bound in the interrupt routine to 


2075 
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ARG1, ARG2,..., ARG12 


and can be examined in the usual way in breakl. 


Inducing H errors 


In addition to these errors detected by the system, the user may 
induce an H error by typing но (Н with the control button pressed). 
At the next point a function is about to be entered, the system 
will type 


INTERRUPTED BEFORE function 
and breakl will type 

(function BROKEN) 
At this point the user can examine the status of his computation, 
by evaluating variables, or exploring the pushdown list with the 
appropriate functions (as of course can be done in any entry to 
breakl). The arguments are again bound to 


ARG1, ARG2,..., ARG1? 


As usual, in breakl the function call will be continued if the 
user types OK or GO. 


In all Н errors, the function or atom in question will be bound to 
the variable FUNCTION. Тһе form which w*'l be evaluated on an 
EVAL, GO, or OK is bound to BRKIEXP. The number of interrupts 
which have been done before are bound to the variable INTERRUPT. 
If a new H error occurs within 6 Call levels of an H breakl, the 
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interrupt routine will not be envered again; an H error will be 
induced, and the user will be back in the earlier H interrupt. 

If a (GO name) or (RETURN exp) is evaluated, breakl will be left 
immediately and quietly, and these functions executed in the last 
interpreted prog on the pushdown list. The user should avoid 


redefining the functions favulteval and interrupt which аг? called 


by the system on H-errors 1 and 2, and H-error 3 and Ho respectively. 


To suppress all calls to these functions, the user should set the 
free variable HELPFLAG to NIL. 


Debugging Functions 


There are three facilities in the system for easily modifying 
function definitions to allow a user to follow the flow of ^ontrol 
and variable bindings in his programs. These three facilities 
together are called the break package. Ail three redefine functions 
in terms of a system function, breakl, described below. Trace 
modifies a definition of a function fn so that whenever fn is 
called, its argumests (or some other values specified by the user) 
are printed. When the value of fn is found it is printed aiso. 


Break modifies the definition of fn so that 1f a break condition 
(defined by the user) is satisfied, the process is halted tempo- 
rarily or > call to fn. The user can then interrogate the state 
of the machine, perform any computations, and continue or return 
from the call. 


Breakin allows the user to insert a oreakpoint inside an expression 


defining a function. When the breakpoint is hit, and if a break 
condition (defined by the user) is satisfiec, a temporary halt 
occurs and the user can again investigate the state of the 
computation. 


-99 


AEEA aietan еі wen 


| 
| 
| 


Кане mantis mnm more emm mommeem 


өү 


Breakl 


The basic ^áu.ction of the break package is breakl. It allows the 
user to interrogate the state of the world and to affect the 
course of the computation. Once a function is broken, the user 
may type in forms to eval and, under heavy errorset protection. 
see the valve of the computations. In addition, he has the 
following options that are specifically recognized by breakl: 


GO Releases the break allowing the 
computation tc proceed. When the 
function is evaluated, its value 
is ргілбей. 


OK Similar to GO except value is not 
printed. When the function is 
evaluated, just the function name 
is printed. 


ERROR Causes an error return from 
brearl (all other errors will 
maintain the treak). This is 
a useful way to get back to the 
preceding break. 


4 Unwinds to the top - i.e. it 
evaluates (RESET). 


RETURN form The value of form is returned as 
the value of the function broken. 
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EVAL The computation proceeds but the 
break 1s maintained so that after 
the function 1s evaluated, a 


message to this effect is printed 
and the user can interrogate the 
value which is stored on the atom 
VALUE. 


Whenever an error occurs inside of a break, either by RUBOUT, or 
otherwise, the break is maintained. Printing of the function 
value is done (with a function bpntZ) to a depth of 4; therefore 
circularities through the car are permissible. 


Break 


Break 1s an NLAMBDA which takes ап” number of functions to be 
broken. The functions may be of type EXPR, FEXPR, SUBR, etc., 
or even undefined. In the case of SUBRS, break will require the 
names of the arguments and w111 ask for them on the teletype. 
Break will usually establish unconditional breaks, i.e. the 
function will aiways be broken. To set up a conditional break, 
one can use a list instead of a function name in the call to 
break. The first element of the list should be the name of the 
function, the second the break condition, and the third - if 
present, a value to be printed. Thus 


BREAK(FOO1 (7002 (GREATERP N 5) (CAR X))) 
(FOO1 Е002) 


will cause a break in F001 -henever 1t 1s called, and a break in 
FOO2 whenever it is called with N greater than 5. In the latter 
case, (CAR X) w111 be printed, using bpntg. 
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In general, if the break condition (the second element of the list) 
evaluates to T, the function will be broken, and the value of the 
third element will be printed. If the break condition evaluates 

to NIL, no break will occur. If the break condition evaluates 

to (NIL), then the value of the third element and the value of the 
function will be printed, but no break will occur. This is effect- 
ively what happens in trace. 


Trace 


Trace is also an NLAMBDA which takes any number of functions to be 
traced. In the normal mode of operation, the arguments of the 
function will be bpntfed as well as the value. To print out other 
values, list the function, followed by the values. Thus 


TRACE(FOO1 (F002 Y) (FOO3 (CADR Х)2) (FOO4)) 
(Ғ001 F002 F003 FOO!) 


will cause FOO] to be traced, printing out all of its arguments, 
РОО2 to be traced printing out Y, FOO3 to be traced printing 
(САРЕ X) and Z, and РОСі to be traced printing out nothirg except 
the name FOO4. In every case, the value of the function is also 
printed. The features of trace are exemplified further by the 
follcwing: 


(1) The user can specify the values of interest to him in 
addition to or instead of бие avzuments of the function, 
by writing a list headed ^y the function followed by 
the values of interest, in place of just the function 
name. 
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ТКАСЕ(ЕОО (ЕОО1 Y (CAR 2))) 
(FOO F001) 


FOO(A B (C D)) 

FOO: 

X=A ... Arguments of FOO 
У=В 

Z=(C D) 


Е001: 
У=А 
(CAR Z)=NIL 


etc. 


(2) The user can Specify the level to which the arguments, 
or values, are to be printed by writing (FNN XYZ...) 
in the call to trace. N is taken to be 4 if not speci- 
fled by this device. 


(3) If an error occurs, or RUBOUT is pressed, while а function 


is being traced, a normal break occurs and, the user can 
proceed from that point. 
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Example: 


TRACE( FACTORIAL) 
FACTORIAL 


FACTORIAL(2) 
FACTORIAL: 
Хад 


FACTORIAL 
Nel] 


FACTORIAL: 
RUBOUT ... RUBOUT pressed here 


(FACTORIAL BROKEN) ... break occurs 
N 

0 

nVAL 


FACTORIAL EVALUATED 

FACTORIAL 

1 

OK 

FACTORIAL ... exit from break 


FACTORIAL = 1 


FACTORIAL = 2 
2 
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Вгеакіп 


The third way to use breakl 15 by means of breakin. Вгеакіп 
inserts a call to breakl inside of a function definition. In 
other words, although it is impossible to break on eq, or quote, 
because so many functicns use it, it is possible to break at the 
point eq or quote is called from some other function. 


Breakin is a function of four arguments: ЕМ WHERE, WHEN, and WHAT. 
FN, WHEN, and WHAT play the same role as the three arguments shown 
when break 1s called with a list instead or an atom, i.e. they 
specify under what conditions a break should occur, and what 1s 

to be printed. The second argument, WHERE, specifies where the 
break 1s to be inserted. 


WHERE сап be either (BEFORE ...) (AFTER ...) (AROUND ...). "..." 
is used by the editor's find command to locate the cc.rect point. 
Thus (BEFORE COND 3) will break befoie the third COND, and 

(AROUND (SETQ X --)) wiil break around the first place that X is 
set. With the exception of labels ir. a top level PROG, you cannot 
specify a BREAK AROUND, BEFORE, or AFTER an atom, because breakin 
automatically changes the atom to (atom --) when calling the 
editor. Thus, (BEFORE COND 3) is the same as (BEFORE (COND --) 3). 


The first time that breakin is called, it copies the function 
definition. Subsequent times it merely searches for the appro- 
priate location and smashes the function definition. If the loca- 
tion is not found, breakin prints "?". If the function is a 
machine code function or undefined, it is not possible to breakin- 
side of 1t. 
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Unbreak 


Unbreak restores functions modified by break, trace, or breakin 
to their original state. It is possible to do multiple breaks, 23 


traces or breakins in any combination without first performing 42 
unbreak. Unbreak is an NLAMBDA which takes an indefinite zz 


number of functions to be restored. The variable ALL is set to a 
list of all functions broken.  Unbreak[ALL] will restore ali func- 
tions to their original state. Since unbreak[FOO] does not remove 
FOO from the list ALL, a subsequent unbreak[ALL] will cause 

(FOO NOT BROKEN) to appear in the value of unbreak. 
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SECTION XVI 


THE COMPILER AND LAP 


The Compiler 


The compiler is a separate sysout file on the system tape, usually 
called COMPILER. To use the compiler, copy your symbolic files 
onto the drum, enter LISP and do a SYSIN (COMPILER). You can now 
load your functions, thus defining them, and then use the function 
compile; or you can compile directly from drum using rcompile. The 
latter is recommended to avoid a clash of function names with the 
compiler. The compiler compiies to a LAP2 code which can be 
written out symbolically on the drum and loaded into any standard 
System, using loadc. 


compile[x] This will compile all the functions 
on the list x 


example: COMPILE((FOO FIE)) 
will compile FOO and FIE if they 
are defined 


rcompile[] This will compile from a drum 
file whose name will be requested 
after the compset questions have 
been answered 
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When either of these functions has been called, they call a func- 
tion compset which asks a number of questions. Those that can be 
answered "yes" or "no" can be answered with YES, Y, or T for У:5; 
and NO, N, or NIL for NO. The questions are: 


(SETUP - TYPEOUT?) 


This question should be answered YES only if you want to see the 
LAP and LAP2 code produced by the compiler printed on the teletype. 
If you answer 1 or 2 you wiil see the output of pass 1 or 2, 
respectively of the compiler. Usually one should answer NO to 
this question. 


(STORE AND REDEFINE?) 
This question should be usually answered NO, unless you want to 
work with your functions within the compiler system. If you 
answer YES, you will be asked the question 


(SAVE EXPRS?) 


If you answer this YES, the exprs will be saved on the property 
list of the function name. Otherwise they will be discarded. 


(NO-SPREAD NLAMBDAS-) 
If there are any NLAMBDA's with atomic argument lists called from 
your functions to be compiled which are not defined, answer the 


question with one of the following: 


$ Means Same list as now on the 
free variable NLAMA 
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ADD (fnj;...;fn Add fn, to fn, to list saved on 


NLAMA. 


к) 


REMOVE (fn,;...;fn Remove functions from NLAMA 


к) 
EDIT The editor will be called and 

you can edit the list of functions. 
(fni;... ;fny) Set NLAMA to the list of functions 


NIL, N, NO Set NLAMA to NIL 


Any other atom will cause a question mark to be printed and let 
you answer again. Then compset will ask: 


(SPREAD NLAMBDAS- ) 


Answer in the same way. The free variable used by the compiler 
is called NLAMS this time. 


(OUTPUT FILE) 


This question is always asked. You should usually provide the 
name of a drum file on which you wish to save the LAP2 code pene- 
rated. If you answer T, TTY or TELETYPE, the listing will be 
typed out on the teletype. If you answer N, NOTHING or NIL, 
output will not be done. If the file named is already open, it 
w111 continue to be used. 


When the compiler is operating, it will normally print out the 


name of the function compiling, a list of its bound variables 
and a list of its free variables. When compile returns, it prints 
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its list of the functions compiled. The value of rcompile is NIL. 


Waen you have finished compiling all the functions you wish to 
dump on one drum file, print NIL on that file and close the file 
with closef(name]. 


The code dumped on the file can be loaded into any standard system 
by using 


loadc[file;fl :1 


where if flas=T the names of the functions loaded will be printed. 


Affecting the Compiled Code 


There are three ways you can affect code compiled for you. You 
can make a function fn compile open (as an open LAMBDA expression) 
by putting the expression defining it (including the LAMBDA) on 
the property list of fn after the flag MACRO, and adding fn to the 
list which is the value of OPENFNS. Abs and memb are functions 
currently compiled open. The effect is the same as if you had 
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written the LAMBDA expression in place of fn wherever it anpears 
in a function being compiled. This saves the time necessary to 
call a function (about a millisecond) at the price of more 
compiled code generated. 


By putting on the property list of fn under the flag MACRO an 
expression starting with an atom other than LAMBDA, one can obtain 
the usual MACRO feature of LISP. The atom which starts the list 

is bound to cdr of the form in which fn appears. The expression 
following the atom is evaluated, and the results of this evaluation 
are compiled. List, mapc and map are compiled using this technique. 
For example: list has on its property list the expression 

(X (GLIST X)), where glist is defined as 


(LAMBDA(L) (COND((NULL L)NIL) (T (LIST (QUOTE CONS) (CAR L) 
(GLIST (CDR L)))))) 


If the value of the result of this evaluation is the atom, 
INSTRUCTIONS, no code will be generated. It is then assumed the 
evaluation was done for effect and the necessary code has been 
added. This is а way of giving direct instructions to the compiler 


if you understand it. 


Finally, an expression following MACRO on the property list can 
Start with a list of atoms which are dummy variables for a substi- 
tution MACRO. Each atom is paired with a corresponding elc..^nt 
in the form containing fn. Then these elements are substituted 
for their paired atoms in the expression following the list of 
atoms, and this substituted expression is compiled. The functions 


addl, subl, neq, zerop, lessp, minusp, difference, ersetq 
and nlsetq 
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are all compiled open using these substitution macros. For example, Ї 
on the property list of add! is the expression ((X)(PLUS X 1)). ~ 
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The compiler has two main passes. The first compiles into a 


fairly powerful macro language we cal) LAP; and this is expanded 
intc a simple assembly lanruage called LAP2. The user can write i 
code directly in LAP to be compiled for LISP. It can be processed 


by the function 52 
lap[fn;v:free:m;^] 


Where fn is a function name; v is. its list of bound variatles; 
free is a list of variables used free; m is the maximum position 
used on the pushdown list; спа с is the code to be compiled. ur? 
expects the Ғіас LAPFLG to be set to NIL, T, 1, or 2 to determine 
printout cn none, all, first or second pass code respecvively. 

The variable STRF should ve T or NIL, to store or not store the 
definition. The variable SVFLO should nave value NIL (T only to 
save ехрг'5) and LCFIL should be set to tne name of гл open file 
on which the output 's to be placed.  FTYP should have value EXPR. 


The code is a list of instructions, which are lists, and atoms 

which are treated as labels. Instructions are 11565 with at least 
two elements. The fi-st element, fn, can be an op code, a substi- 
tution macro, a lambda macro, or a function macro. These LAP 

Macros аге completely separate from the compiler macros. Іп the 
first three cases, fn has on its property list a property UPD with 

a value we will call mc. A functicn macro is the default case, 

and a list of code to be used is computed by apply*ng fn to cdr 

of the instruction, and this new list is assemblec. Useful function 


фауне 
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macros in the system will be described later. 


deb 


If mc is a number, thenfn is an opcode of the 940. The codes 
defined at the morent, with their values, are listed at the end 
of this section. 


Instructions containing these codes as first elements are dumped 
in symboiic form and at load time are added to the second of the 
instruction. If the third element is I, the index bit is set in 
the instruction. 


теменима еминентни трен tH ттар SY PH erre ы eH PASE] ен MIS HH AH eT PHI HU 


фт ей = 055 QUO => => 9-4 4 


The substitution macros are those where пс is а list which starts 
with a list of dummy variables for the macro.  Corresronding ele- 
ments of the instruction are substituted for the variables „п the 
macro which is сдг(теј, and this new list of instructions 15 com- 
piled, befor» the next instruction on the original coue is compiled. 
When mc starts with LAMBDA, (a lambda macro) similarly to the 
default case, a list of instructions is computed by applying mc 

to саг of the instruction. The substitution and lambda macros 

in the system are listed at the end of this section. 
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The important ones of this group are: (where A indicates 


(LDV X) 
(STV X) 
(LDT м) 


(STT N) 


(NSTT N) 


(LQT X) 
(LDN N) 
(STN N) 


(CLL L K U) 


(CLLA L K U) 


(RET) 


(BE N B) 
(BNE N B) 
(BN B) 
(BNN B) 
(BA B) 
(BNA B) 
(BI B) 
(BNI B) 
(BIS B L) 
(BNS B L) 
(JUMP B) 


Load variable X into A 

Stores А oX 

Load A from stack position N (a stack 
position is a pair of 94% words n>) 
Store A in stack »osition N and store Йй 
in variable slot. This is important to 
prevent garbage collector foul UPS: 

Store A in stack position N, do not store 
g. 

Load X quoted as a constant 

Load an unboxed integer from position N 
Store an unboxed integer in position N 
Cal? function L with K/? args, and U/2 
positions used up on the pushlist through 
last argument of function cailed 

Calls a functional argument L as above 
Standard return, only one per function 

is usual 

Branch to B 1f A=N 


Branch to if A#N 
Branch to if A=sIL 
Brinch to if A#NIL 


if A an atom 
if A not atom 
if A a number 


Branch to 
Branch to 
Branch tc 
Branch to if A not number 
Branch to if A=L a quoted constant 
Eranch to if A#L a quoted constant 


Branch to 


px jo {со do qoo lo qo fo {ш 
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accumulator) 


(CONSCLL N) 


(CCALL ОР: 


(PRGREF OP B) 


(RELREF OP N) 


(LITREF OP EXP) 


(VREF OP x) 


а DRIN ААА ИЕН отит Шш 


(STKREF OP М) 


шиш Шин А А АИ ПАН RE ана 


TOU тт NEUE ОМАР ТИІП” 


| (BRANCH OP B) 


P 


Calling sequence for cons of element in 
Stack position N with contents of A. 
Used with either op=CARCLL or 

op=CDRCLL 
to call car or саг A. 


The important function macros are: 


This must be used for all instructions 
whose address B is a number relative to 
the beginning of the code ага therefore 
must be relocated on loading. In com- 
puting B, remember that LAP inserts 4 
instructions at the beginning of your 
code for initialization. 


Must be used for all instructions which 
reference a label (branch point) in the 
code. 

Useó when М is relative to current 
location. 

Stores EXP 1n a list of literals and 
computes the address of the literal for 
use in the compiled code. Used to get 
any literal quantity into the code. 


Computes the position on the Stack of 
the variable named X. 


Computes the actual address on stack 
of position N. 


For further information, consuit the document "An Annotated LISP 
Compiler" by Bobrow, Murphy and Deutsch (forthcoming). 
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MACROS for the compiler 


The following expression when loaced with the compiler defines 


all the MACROS used by the compiler. 


(DEFLISTCQUOTEC 
(LIST (X CGLIST ХЭ) 
CADDI СО9 
(PLUS X 1 
есиВвІ СХ? 
(PLUS X 21299 
СМЕО (СУ YO 
CNOT CEQ X Ү»)») 
€ZEROP ¢¢X) 
(EO X 0299 
(LESS? ((X YO 
CGREATERP Y ХЭЭ 
CMINUSP СО9 
(GREATERP 9 702) 
(DIFFERENCE ((Х Y) 
(PLUS X (MINUS ҮЭ»» 
CABS (LAMBDA (X) 
(COND 
€CGREATERP 0 X) 
CMINUS ХЭ) 
ст ХЭЭ» 
CERSETQ €CX) 
CERRORSET (QUOTE X? 
ТЭЭ 
(МАР (X (LIST С508РАГВ (QUOTE СМАРР MAPF2)) 
(LIST (CFNP (CADR X2) | 
(COND 
CCCDDR X) 
ССЕМР (CADDR ХЭЭ) 
(Т €QUOTE CDR222) 
(QUOTE (LAMBDA СМАРХ) 
(PROG NIL 
LP (COND 
C CNULL .MAPX) 
<ВЕТУКМ))) 
СМАРҒ МАРХ) 
CSETQ MAPX (MAPF2 MAPX)) 
(60 LP) 
322) 
(CAR X222) 
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(МАРС (X {LIST CSUBPAIR (QUOTE (МАРСЕ MAPCF2)) 
(LIST ССЕМ? (CADR ХЭ) 
(COND 
CCCDDR X) 
ССЕМР (CCADDR X52) 
(Т (QUOTE CDR)))) 
(QUOTE CLAMBUA CMAPCX) 


(PROG NIL 
LP (COND 
CCNULL, MAPCX) 


CRETURN) 2) 
CMAPCF CCAR МАРСХ)» 
(SETO MAPCX ‹ 1АРСР2 МАРСХ)) 


(GO LP) 
ЭЭ» 
CCAR X222) 
(MEMB (LAMBDA (X Y) 
CPROG NIL 
LP (RETURN (COND 
CCATOM Y?) 
NIL) 
(CEQ X (CAR ҮЭ) 
YO 
СТ (SETQ Y (CDR YO) 
(60 LP)))) 
22) 


CNLSETQ (CX) 
CERRORSET (QUOTE X) 
NIL))) 
CVAG СХ ССЕХРВ (CAR X)) 
ссомр 
(«EQ ¢CAADR CODE) 
(QUOTE ENBOX) > 
CRPLACA (CDR CODE))) 
СТ (STORE (QUOTE CUNBOX))))) 
(QUOTE INSTRUCTIONS) >) 
(LOC (X ССЕХРБ (CAR X)) 
(COND 
ССЕО CCAADR CODE) 
(QUOTE UN3OX)) 
CRPLACA (CDR CODE))) 
СТ (BOX SP))) 
(QUOTE INSTRUCTIONS) >) 
(ААС (X ССЕХРЕ (LIST (QUOTE VAG) 
CCAR ХЭЭ? 
CSTORE (LIST CQUOTE VREF) 
CQUOTE SUB) 
(COND 
CARGARG) 


СТ (ERROR (QUOTE (FUNCTION °ARG*® NOT LEGAL)))))) 


(STORE (LIST (QUOTE Аном) 
ARGARG)) 
(«QUOTE 1М5ТКУСТ10М5229 


22 CQUOTE MACRO) > 
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LAP MACROS 


The following expression when loaded with the compiler defines 
the substitution and lambda macros for Lap. 


(DEFLIST(QUOTE( 

СС5РІ (CLV LF LT) 
(LITREF LDA LV) 
(LITREF LDX LF) 
(LITREF LDB LT) 
(PRGREF VAL (PLUS ENTER PLITORG 1222) 

CVST1 (CPP Ly V) 
(LITREF LDA PP) 
(LITREF LDB LV) 
(PRGREF VAL (PLUS ІРУ PLITORG V)))) 

СВЕ CN BD 
(STKREF SKE ND 
(RELREF BRU 2) 
(JUMP ВЭЭЭ 

(BNE ССМ B) 

CSTKREF SKE ND 
(JUMP ВЭЭ? 

(LDV (LAMBDA (S) 

СУВЕР (QUOTE LDA) 
5999 

CSTV (LAMBDA (S) 

СУВЕР (QUOTE STA) 
599» 

(LDT (LAMBDA (S) 

CSTKREF (QUOTE LDA) 
599» 

С5ТТ (LAMBDA (5) 

CSTKREF (QUOTE STA) 
S)» 

СМ5ТТ (LAMBDA (S) 

CSTKREF (QUOTE NSTA) 
5929 

(LOT (LAMBDA (X) 
(LITREF (QUOTE LDA) 

à ХЭЭ) 

ам (LAMBDA (S) 


«NREF (QUOTE LDA) i 
5292 
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(STN (LAMBDA (N) 
(NREF (QUOTE STA) 
нээ) 
(CLL (CL K UD 
CLITREF LDA U) 
CLITREF LDB.K) 
CLITREF CLLX 1999 
CCLLA (CL K UD 
CLITREF LDA U) 
(LITREF LDB K) 
СУВЕР CLLXA 1299 
CARGN ССА? 
(LSH 1) 
CARGSUB A) 
(ADD PPPTR) 
ССАХВ 0) 
(LDA 0 DD 
(CBX 005) 
CARGSUB (LAMBDA NIL 
(LITREF (QUOTE ADD) 
(PLUS -2 СҮВЕЕ1 АЭЭЭЭ) 
(RET (NIL (VAL БЕТОВМЭЭЭ 
(BN ((B) 
(SKE SYSNIL) 
(RELREF BRU 2) 
(JUMP ВЭЭЭ 
(BNN (CB) 
(SKE SYSNIL) 
(JUMP Вэ»? 
(BA <В 
(SKG ЅҮЅТАТ) 
(RELREF BRU 2) 
(JUMP Вә»), 
(BNA ((B) 
CSKG 5Ү5ТАТ) 
(JUMP ВЭЭ? 
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CUNBOX CNIL «VAL UNBOX2)) 
СЕМВОХ сету 

(VAL (PLUS ENBOX №››} 
(NEG CNIL CCNA 0))) 

(DVD сем x) 

CRSH 23) 

fDIV N ХЭЭ) 
(DIVIDE ¢¢s) 

(STTN 5) 

(SWAP 09 

CENBOX S) 

CSTKREF SXMA S) 

CENBOX S) 

CSTKREF ХМА S) 

€CONSCLL 5999 
СВІ (CB) 

€SKG SYSNUM) 

CRELREF BRU 2) 

(JUMP ВЭЭ) 

(BNI єв» 

(SKG SYSNUM) 

С.ЮМР ВЭ) 
(BIS ((в |). 

(LITREF1 SKE L) 

CRELREF BRU 2) 

С.ЮМР ВЭЭ) 

(885 ((B |) 
(LITREF1 SKE |) 
€ JUMP ВЭ) 

CCONSCLL сем) 

ССАВ 0) 

CSTKREF LDA N) 

«VAL (PLUS CONSCLL (TIMES м 2255») 
(CCALL (cop) 

(VAL OP) 

(LDX PPPTR))) 

CCLLX се) 

(VAL (PLUS XCLL №55) 
CCLLXA сем X) 

(VAL (PLUS XCLL N ХЭЭ» 
CSWAP (NIL (XAB 02») 
CJUMP (CB) 

CPRGREF BRU (685 В)))) 
СМРУ ссу X) 

СМЛ. N X) 

CLSH 23))) 

)) CQUOTE ОРО?) 
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eon Cee © 


ИИА 


ттүү РАТИ ИРЕНА, тэтгэн эмийг 


јун наносе Поа ВАВА ОДА ВА ИЕ АШ 


Мани оваа а БЕИТ SETTE ТР ТИТИРЕТЕ Т] 


Орсодез Гог Гар. 


(5ТА 


(LDB 
(STB 
(LDX 
(STX 
СЕАХ 
СХМА 


(АБО 
CADM 
(MIN 
(SUB 
(MUL 
(DIV 
CETR 
(MRG 
(ЕОК 
(CLA 
(C!.B 
(CAB 
(CBA 
СХАВ 


ET 


(DEFLISTCQUOTEC 
(LDA 76000000) 


35000090) 


МОТА 35000000) 


75090000) 
36000000) 
71000000) 
37000000) 
77002090) 
62000000), 


С5ХМА 62000000» 


55000000) 
63000000) 
61000000) 
54000000) 
64000000) 
85900000) 
14000000) 
16000000) 
17000000) 
46000010) 
46080020) 
46000048) 
46000100) 
46200140) 


OPCODES currently defined for LAP 


ССАХВ 46004400) 
(CBX 460820200) 
CCNA 46010000) 
(BRU 1000000» 
(ВАХ 41000000) 
(BRM 43000000) 
(BRR 51000000) 
(SKE 50000000) 
(589 13000000) 
€SKM 10000000) 
(SKA 72000000) 
(SKB 52000000) 
(SKN 53020000) 


€SKR 60000900) 
€RSH 66006000) 
(LRSH 66240000) 
(ВСУ 66200000) 
CLSH 670900900) 
«€LCY 67200000) 
(МОР 20000009) 
CEXU 23000000) 
(«VAL 00) 

(BIO 576000000) 
(BRS 573000080) 
(CTRL 57200000) 

3)€QUOTE OPD)) 
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The following expression loaded with the compiler defines the 


ir att eet 1 


INDEX TO FUNCTIONS 


name of 
function 
abs 

add 

ада1 
allocate 
and 
append 
apply 

arg 
argiist 
array 
arraysize 
assoc 
atom 
attach 
backtrace 
bontf 
break 
breakin 
breakl 
car, cdr, (etc) 
character 
еһсоп 
clearbuf 
clock 
closef 
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description 
раке 
1! 
34 
T2 
61 
25 
27 
38 
39 
38 
62 
63 
34 
24 
28 
71 
101 
10: 
195 
100 
16 
81 
59 
al 
92 
18 


| 
| 
| 
| 
| 
f 
| 
| 
| 
| 


тт Hr ertt er 


х 
пио № 


name of 
function 


closer 
compile 
cond 

cons 
conscount 
conspage 
control 
cony 
define 
defineq 
deflist 
difference 
divide 
dremove 
dreverse 
dsubst 

e 

editcom 
editdefault 
edite 
editf 
editp 
editv 

elt 
endfile 
eq 

€qp 

equal 
error 
errorset 


description 


сарад 


61 
107 
19 
17 
18 
17 
85 
29 
35 
37 
33 
72 
13 
29 
29 
30 
38 
23 
23 
53 
53 
53 
53 
63 
87 
24 
24 
24 
94 
95 


WIPE eamm 


name of 
function 


ersetq 
esgag 
eval 
evala 
evalr 
evalv 
faulteval 
feed 

fgvp 

fix 

float 
floatp 
fltfmt 
fminus 
fntyp 
fplus 
fquotient 
ftimes 
function 
кскак 
gensym 
get 

getd 

getp 

go 
greaterp 
11р 
infile 
input 
interrupt 
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дегсгірбісп 
page 
95 
95 
37 
37 
38 
TO 
99 
T9 
75 
75 
75 
75 
75 
75 
36 
75 
76 
76 
64 
60 
60 
33 
35 
33 
22 
73 
61 
TT 
78 
99 


name of 
= function 


| intersection 
lap 

41 1ар2 

last 

1сопс 

length 

lessp 

linelength 

list 

load 

loade 

loc 

logand 

logor 

logout 


a i * 1 


logxor 
lsh 
mac 
mace 
maccar 
maccon 


— = > > 1-4 


4 * 
фичи 


macconc 
maclist 
map 
d mapc 
| mapcar 


1 4 
od 


mapcon 
| mapconc 
maplist 
memb 
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description 
page 


26 


112 
112 


30 
28 
31 
73 
85 
27 
87 


110 


61 
73 
73 
61 
73 
74 
66 
66 
66 
67 
67 
66 
64 
65 
65 
65 
65 
65 
25 


iii su ООУ УУУУ УУ УО УУ ОУ О н 


Й 
| 


= 
= 
Er 
ES 
3 


name of 
function 


member 
minfs 
minus 
minusp 
nargs 
псопс 

neq 

nill 
nlsetq 
not 

nth 

nthfn 
nthfnback 
nuli 
numberp 
oblist 
openp 
openr 

or 
outfile 
output 
pack 

pius 
position 
prettydef 
prettyprint 
print 
printlevel 
prin? 
prin2 
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description 
page 
25 
60 
T2 
73 
38 
27 
24 
24 
96 
25 
31 
70 
70 
24 
73 
60 
78 
61 
25 
77 
78 
59 
72 
85 
88 
67 
80 
80 
T9 
79 


фанни 


sies 


name of 
function 


prin3 
prog 
progn 
progl 
proge 
р.» 

put 

putd 
putdq 
quit 
quote 
quotient 
radix 
ratest 
ratom 
ratoms 
rbin 
recompile 
rdflx 
read 
геаас 
readp 
reclaim 
remainder 
remove 
remprop 
rename 
reset 
retfrom 
return 


description 

page 
80 
22 
21 
21 
2) 
32 
32 
35 
35 
96 
18 
T2 
85 
84 
82 
82 
86 

107 
82 
£2 
84 
86 
60 
T3 
29 
32 
70 
96 
71 
23 


оодо н айы ot SI Ад LU aD DL d Mio" 


name of 
function 


reverse 
rplaca 
грјаса 
rsh 
sassoc 
selecti 
set 
seta 
setarg 
sotbrk 
setbrkc 
setq 
setq 
setsepr 
setseprc 
setv 
spaces 
statistics 
storage 
sublis 
subpair 
subst 
subl 
sysin 
sysout 
tconc 
terpri 
tine 
times 
trace 
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description 

page 
29 
18 
18 
74 
34 
20 
23 
63 
39 
83 
83 
23 
23 
83 
83 
70 
80 
62 
62 
30 
30 
29 
72 
86 
bo 
28 
80 
92 
T2 

102 


к ка юе > => 


4 
кету 


. 
Жы 


Шин 


TIS ы ыы ыы нын ыны ері Dee HEUTE HH Hl алада тататын О OCT 


с 
с 
ч 
2 
с. Ф 
ты 
HOO € A o o су 
ошо сч vo t- со ~ 
0 1-4 
Ф 
© 
n 
E Ф 
&4 ој ~ = 
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Q oo 
Ses 3 3 > > ою 


ЭГ ЛЭГ _ зрна - и и == 271277 хөших d EP ERR, ГИ PR к 


EA. eee iem ЖЕСЕ УМА eee 


Following is а list of all atoms with initialized top 
level values in the bosic system and those values. 


blank 
space 
tab 
conma 
eqsign 
xeas 

f 

nil 
period 
pluss 
lpar 
rpar 
Slash 
t 

"cs 
атагк 
хдо1 
xsqu 
xdqu 
xlbr 
xrbr 
xarr 
uparr 
colon 
xgreater 
xlesser 
xnum 
xper 
xamp 
xat 


-130- 


space 
Space 
tab 
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ә 


п11 
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